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ABSTRACT 


This  thesis  is  a  two  player,  microcomputer  controlled, 
tactical  motion  analyzer  (TMA)  of  unit  movements.   TMA  is 
designed  to  be  used  in  either  a  manual  or  comouter  driven 
wargame.   Written  in  the  computer  language  Pascal,  implemen- 
tation is  designed  for  the  APPLE  II  computer.   The  program  is 
contained  on  two,  5  inch  floppy  diskettes.   Specific  unit 
characteristics  are  entered  into  the  database  by  the  users. 
Users  may  then  analyze  unit  movements  using  time-step  simulation, 
Data  transfer  between  computers  is  done  by  the  users  physically 
exchanging  diskettes.   The  game  may  be  replayed  or  saved 
and  continued  at  any  time.   The  program  logic  and  data  mani- 
pulation are  discussed  in  detail  within  the  text  of  the 
thesis. 
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I.  INTRODUCTION 

The  purpose  of  this  thesis  is  to  provide  a  user  friendly, 
two  player,  microcomputer  controlled,  tactical  motion  analyzer 
(TMA)  of  unit  movements. 

Since  their  advent,  computers  have  been  used  by  the 
military  and  civilian  contractors  alike  in  an  attempt  to 
simulate  war  environments.   This  was  first  done  by  the 
vacuum-tube  computers  to  solve  firing  solutions  for  anti- 
aircraft guns,  and  later  by  high  speed,  mainframe  computers 
to  simulate  complete  battles  and  even  war  scenarios.   Only 
recently  has  the  technology  been  available  to  do  similar 
applications  on  microcomputers.   Specifically,  memory  chip 
density  advances  have  to  be  the  most  significant  contribution 
in  this  field. 

The  hardware  to  do  large  scale  wargaming  has  been 
available  for  several  years,  but  it  is  only  nc^j    that  software 
development  is  approaching  the  sophistication  level  so  that 
non-computer  enthusiasts  can  sit  down  at  a  terminal  and 
successfully  interact  with  a  computer  wargarae.   It  is  with 
this  in  mind  that  this  thesis  was  written.   A  primary  goal 
of  TMA  is  to  design  human  factors  and  ease  of  use  into  a 
game  as  it  is  written.   This  subject  is  discussed  in  depth 
in  chapter  III. 

Although  TMA  is  a  complete  program,  there  are  many 
unexplored  areas  that  could  enhance  it.   Chapter  VIII  lists 
some  suggestions  for  future  expansion. 


In  order  to  use  the  TMA  program,  the  following  equipment 
is  required:   the  TMA  diskettes  (two  for  each  player),  two 
Apple  II  computers,  two  disk  drives  and  a  monitor  for  each 
machine . 

Prospective  users  of  this  program  may  include  anyone 
interested  in  observing  relative  unit  motion  while  interacting 
with  a  microcomputer.   Since  this  program  is  an  interactive, 
two  person  game,  these  individuals  will  be  able  to  test 
strategies  for  maneuvering  their  units.   Through  playing  the 
game  and  becoming  familiar  with  some  surface  vessel  tactics, 
it  is  hoped  that  this  program  will  be  of  some  educational 
benefit  to  U.S.  Navy  line  officers. 


II.  GOAL  OF  THE  TMA  PROGRAM 

A.   WARGAMES  IN  GENERAL 

The  author  has  had  some  limited  experience  with  U.S. 
Navy  funded,  commercially  produced,  interactive  computer 
wargames.   This  experience  is  restricted  to  the  Warfare 
Environment  Simulator  (WES),   WES  is  a  real-time  man- 
interface  discrete  time  step  simulation  for  analytical 
wargaming  applications  in  support  of  a  broad  range  of 
research  and  development  objectives.   WES  was  produced  by 
System  Development  Corporation  (SDC)  located  in  San  Diego, 
California.   WES  appears  to  do  what  it's  suppose  to  do, 
however,  it  also  has  some  very  difficult  characteristics. 
Specifically,  it  is  difficult  to  use.   A  variety  of  special 
commands  and  code  words  must  be  learned  before  playing  the 
game.   These  are  many  in  number  and  nonstandard  compared  to 
military  nomenclature.   In  many  cases  numerous  man-hours 
must  be  spent  in  becoming  familiar  with  these  terms  which 
are  most  often  germane  only  to  the  present  system. 

Many  computer  wargames  are  designed  for  implementation 
on  large,  fast  and  expensive  mainframe  computers.   This 
very  description  implies  a  limitation  for  its  users.   Due  to 
the  high  initial  costs  and  maintenance  expenses,  general 
user  availability  is  less  than  optimal.   Additionally, 
software  "experts"  must  be  on  hand  to  answer  questions  and 
help  train  system  users.   This  makes  the  wargame  expensive 
to  run  and  maintain. 
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Another  problem  that  is  not  restricted  to  military 
wargames,  but  to  sophisticated  software  in  general  is  lack 
of  good  documentation  I   Granted  that  software  engineers  who 
develop,  design,  write  and  test  programs  are  gifted  individuals, 
their  ability  to  write  user  instructions  for  the  layman  is 
suspect.   After  spending  months  and  sometimes  years  developing 
software  packages  it  is  understandable  that  these  same  people 
may  lose  perspective.   There  are  two  extremes  to  the  documen- 
tation dilemma;  too  technical  or  too  general.   It  seems  as 
if  the  too  technical  examples  were  written  by  the  software 
engineers  while  the  authors  of  the  too  general  documentation 
never  really  understood  what  the  program  was  supposed  to  do. 

Price  notwithstanding,  ease  of  use  or  user  friendliness 
may  be  the  major  factor  influencing  acceptance  of  micro- 
computers and  computer  generated  software  in  the  future. 
Several  articles  have  appeared  in  recent  magazine  issues  of 
BYTE  [Ref.  1]  and  PERSONAL  COMPUTING  [Ref.  2]  dedicated  to 
the  subject  of  human  factors  design  engineering  in  hardware 
and  software  systems.   Basically  they  both  say  that  as  the 
general  public  begins  to  accept  microcomputers  into  their 
daily  routines,  the  transition  to  a  computerised  society 
will  be  made  smoother  oy    the  software  designers.   They  must 
design  their  programs  with  the  general  public  in  mind. 
Civilian  contractors  who  supply  wargames  to  the  military  have 
a  head  start  on  the  rest  of  the  computer  software  industry, 
but  there  is  still  a  long  way  to  go. 
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Another  possible  advantage  in  using  microcomputers  for 
wargaming  is  reducing  the  intimidation  the  user  feels  while 
sitting  in  a  large  computer  center  time  sharing  with  a 
mainframe  computer.   Anxiety  and  trepidation  on  the  behalf 
of  the  user  may  be  kept  to  a  minimum  by  using  micros  that 
incorporate  user  friendly  software. 

Two  major  disadvantages  associated  with  using  micro- 
computers for  large  scale  wargaming  are: 

1.  The  lack  of  standardization  in  the  microcomputer 
industry. 

2.  The  inability  of  today's  microcomputers  to  handle 
very  large  databases  with  the  speed  necessary  to  use 
them  in  "real  time"  applications. 

Until  an  industry-wide  standard  is  adopted  purchasers 
of  systems  must  ask  themselves  if  what  they're  buying  will 
be  compatable  with  what  they  already  have  or  what  they  may 
buv  in  the  future. 

The  second  disadvantage  is  not  as  serious  as  the  lack  of 
standardization  since  technological  breakthroughs  often 
occur.   Today's  S-bit  and  l6-bit  microprocessors  will  surely 
give  way  to  tomorrow's  32  and  64.-bit  microprocessors.   This 
increased  size  chip  will  allow  vast  amounts  of  online 
computer  memory  to  be  available  for  instant  recall,  thereby 
allowing  increased  database  size  and  retrieval  speed. 
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B.   TMA  IN  GENERAL 

The  TMA  program  is  a  small  scale  attempt  to  correct  many 
of  the  above  listed  deficiencies.   The  microcomputer  has 
become  a  very  powerful  computing  tool.   This  is  due  primarily 
to  technological  increases  in  the  areas  of  silicon  chip 
memory  densities  and  larger,  more  sophisticated  microprocessors 
with  faster  cycle  times.   The  microcomputer's  lower  cost  and 
high  reliability  make  it  possible  to  increase  overall 
availability  of  computer  wargames  as  well  as  computers  in 
general . 

The  major  goal  of  the  TMA  program  is  to  demonstrate  some 
user  friendly  software  implementation  techniques  while 
exploring  the  capabilities  of  microcomputers  in  wargaraing. 
In  addition  to  being  informative  and  instructive  in  nature, 
this  program  is  intended  to  be  painless  to  use  and  fun  to 
watch.   This  is  made  possible  by: 

1.  Programming  the  game  in  the  computer  language  Pascal, 

2.  Using  the  high  resolution  graphics  capability  of  the 
Apple  II  computer. 

Pascal  was  chosen  as  a  programming  language  over  BASIC 
and  FORTRAN  because  of  its  highly  structured  nature.   This 
structuring  allows,  if  not  requires,  modular  design  and  makes 
it  very  legible  and  comprehensible  for  large  programs.   Changes 
and  modifications  can  be  made  several  times  faster  than  in 
unstructured  languages.   Also,  Ada,  which  is  soon  to  be 
required  of  all  contractors  who  want  to  do  business  with 
the  U.S.  Department  of  Defense,  can  be  thought  of  as  an 
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enhancement  of  Pascal.   Pascal  cones  in  many  versions.   The 
version  used  for  TMA  is  Apple  Pascal  which  incorporates  UCSD 
Pascal  and  Apple  extensions  for  graphics,  sound,  and  paddles. 
Of  these  extensions  Ti4A  uses  graphics  and  sound. 

The  high  resolution  graphics  capability  of  the  Apple  II 
computer  makes  it  possible  to  produce  an  aesthetically  pleasing 
graphical  presentation  of  the  actual  events  as  they  happen 
during  the  simulation.   This  could  be  expanded  upon  by  having 
a  high  resolution  color  monitor  instead  of  a  green  or  black 
and  white  screen.   Visual  representation  prompts  faster  feed- 
back from  the  user.   He  can  quickly  scan  and  understand  each 
tactical  situation  as  it  occurs.   The  more  computer  graphics 
are  used  to  represent  what  is  actually  happening,  the  more 
useful  the  wargame  will  be  to  the  user. 
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III.  THE  PROGRAM 

TMA  is  an  acronym  standing  for  Tactical  Motion  Analyzer. 
The  main  program  is  comprised  of  three  separate  subprograms; 
the  database,  the  motion  analyzer  and  a  fast-time  replay  of 
the  motion  analyzer. 

The  database  subprogram  is  designed  to  be  interactive  in 
nature.   Menus  are  used  throughout  the  program  that  offer  the 
user  a  selection  of  specific  choices  that  may  be  made.   Once 
an  appropriate  choice  is  made,  that  segment  of  the  program 
becomes  active.   If  the  user  makes  a  mistake  or  changes  his 
mind  about  a  selection,  the  program  will  allow  the  user  to 
regress  to  the  previous  level.   When  an  input  is  required 
the  computer  will  prompt  the  user.   If  an  unexpected  input  is 
received  the  computer  will  beep,  the  input  will  be  erased  from 
the  screen  and  the  user  will  again  be  prompted  for  input. 
This  will  not  prevent  erroneous  input  from  getting  into  the 
database,  but  will  prevent  the  user  from  entering  a  number 
if  a  letter  is  expected  and  vise  versa. 

The  database  portion  of  the  program  allows  the  user  to 
develop  and  save  various  parameters  of  specific  units.   These 
parameters  are  entered  by  the  user  and  then  saved  as  a  file 
on  the  game  diskette.   This  information  is  then  available 
throughout  the  program  using  random  access.   There  is  a 
default  database  on  the  TMA1  diskette  consisting  of  ten  units 
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(specifically  surface  vessels).   The  user  can  use  the  default 
database  or  devise  his  own.   Each  game  diskette  has  room  for 
at  least  ten  separate  user  database  files.   Input  required  by 
the  database  for  each  unit  is  as  follows: 

1  .   Class 

2.  Name 

3.  Hull  number 

4..  Initial  Course 

5.  Initial  Speed 

6.  Position  (X-Y  coordinates) 

7.  Maximum  unit  speed 

8.  Number  of  surface-to-surface  missiles  (3SM)  on  board 

9.  SSM  speed 

10.  Number  of  surface-to-air  (SAM)  missies  on  board 

11.  SAM  speed 

Course  and  speed  are  the  only  parameters  which  may  be 
altered  before  each  move. 

Each  user  database  must  have  a  different  name.   '^hen  the 
diskette  becomes  full,  the  program  will  let  the  user  know  by 
printing  an  appropriate  message  on  the  screen.   More  room  can 
be  made  available  on  the  diskette  by  removing  an  unnecessary 
datafile. 

The  database  subprogram  is  completely  self contained. 
While  the  user  is  interacting  with  this  section  of  the  program, 
no  data  is  transferred  between  computers. 

The  second  subprogram  of  TMA  deals  with  the  mathematical 
manipulation  and  graphical  display  of  the  program.   All 
calculations  in  TMA  are  deterministic.   Motion  for  each  unit 
is  computed  from  three  inputs  provided  by  the  user;  course, 
speed  and  time.   Course  and  speed  are  maintained  in  the 
database.   A  time  increment  is  entered  before  every  time-step. 
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Geometry  and  trigonometry  are  used  to  derive  all  unit 
motion.   The  calculations  are  first  computed  for  the  user's 
side,  then  the  program  automatically  communicates  with  the 
opponent's  program  and  retrieves  the  necessary  data  to  plot 
the  updated  positions  of  his  units.   A  history  of  all  position 
changes  are  saved  on  the  diskette  for  later  use  by  the  program 
Communication  between  computers  is  handled  by  the  user.   The 
program  will  stop  at  the  appropriate  time  and  request  the 
players  to  exchange  program  diskettes.   This  exchange  allows 
each  player  to  view  the  moves  made  by  the  opponent.   If  for 
some  reason  this  exchange  is  not  made,  the  program  will 
continue  to  run,  however,  only  the  mcves  made  locally  will 
be  displayed. 

Between  moves  the  user  can  study  each  unit's  situation. 
The  user  has  the  following  options: 

1.  Draw  a  circle  of  a  specified  range. 

2.  Compute  the  range  and  bearing  between  units. 

3.  Determine  closest  point  of  approach  (GPA)  between  units. 
4-.  Calculate  intercepts  between  units. 

5.  Move  individual  units  around  the  screen. 

6.  Advance  to  the  next  time-step. 

A  more  specific  description  and  explanation  of  how  to  use 
the  program  follows  in  the  Appendix  in  the  form  of  a  user's 
manual. 

The  graphical  representation  of  TMA  is  oriented  in  U.S. 
Navy  standard.   North  is  360  or  000  degrees  and  corresponds 
to  the  top  of  the  screen.   East  is  090  degrees  and  is  the 
right  side  of  the  screen  as  the  user  views  it.   Bearings 
increase  to  the  right  (clockwise).   The  graphic  screen  of  the 
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Apple  computer  is  not  square  but  is  actually  a  rectangle  that 
measures  280  dots  along  the  X-axis  (horizontally)  and  192 
dots  along  the  Y-axis  (vertically).   This  rectangular  display 
has  some  inherent  disadvantages.   The  disadvantage  most 
noticable  to  the  user  will  be  that  circles  drawn  on  the  display 
will  appear  as  ellipses.   Also,  identical  distances  drawn  along 
both  axes  will  show  on  the  screen  as  having  different  length. 

The  graphics  screen  of  TMA ,  as  viewed  by  the  user,  will 
consist  of  a  100  by  100  mile  square  grid.   Each  dot  will 
represent  one  mile.   The  lower  left-hand  corner  will  be  the 
origin.   The  horizontal  and  vertical  axes  correspond  to  the 
X  and  Y  axes,  respectively.   These  square  coordinates  will 
be  linearly  transformed,  within  the  mechanics  of  the  program, 
into  the  rectangular  grid  that  the  Apple  computer  uses.   All 
numerical  output  to  the  user  will  again  be  transformed  to  the 
more  familiar  100  by  100  grid. 

This  method  of  graphic  display  was  chosen  by  the  author 
to  ensure  a  one-to-one  correspondence  between  the  user's 
grid  coordinates  and  that  of  the  machine.   In  retrospect, 
this  may  not  be  as  important  as  originally  envisioned. 
Consequently,  this  phenomenon  is  one  that  may  be  corrected 
by  changes  to  the  program  code. 

Calculations  are  performed  using  real  numbers,  which  on 
the  Apple  Computer  have  precision  to  seven  decimal  digits. 
However,  displaying  these  positions  on  the  screen  require 
rounding  off  each  position  to  its  integer  equivalent.   The 
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impact  of  this  induced  rounding  error  is  varied  depending  on 
what  scale  the  user  is  viewing  the  screen.   For  example,  the 
initial  scale  is  1  dot  per  mile.   In  this  scale  the  round 
off  error  may  account  for  a  screen  positioning  error  of  up 
to  one  mile. 

The  final  section  of  TMA  is  the  fast-time  replay  subprogram. 
When  Rerun  is  invoked  by  the  user,  the  screen  will  clear  and 
display  the  game  situation  as  it  was  before  the  first  move  of 
the  game.   During  this  phase  of  the  program  all  user  options 
are  active  just  as  before.    However,  when  the  user  elects  to 
advance  to  the  next  time  step,  instead  of  computing  new  positions, 
the  computer  will  read  the  next  set  of  coordinates  from  it's 
history  file  and  display  them  on  the  screen.   This  gives  the 
user  the  ability  to  observe  a  lengthy  series  of  moves  condensed 
into  a  relatively  short  time.   This  is  an  ideal  time  for  the 
user  to  critique  his  own  tactical  decisions  and  to  observe 
those  of  his  opponent.   The  Rerun  subprogram  is  completely 
self contained,  that  is,  no  interaction  takes  place  between 
computers.   Each  terminal  is  a  stand  alone  system  at  this 
time  requiring  no  exchanging  of  diskettes. 
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IV.   MOTION  ANALYZER 

A.   INITIALIZATION 

TMA  is  a  large  program  as  microcomputers  go.   The  text 
version  is  over  3000  lines  of  Pascal  code.   The  compiled 
length  equates  to  about  4-0,000  bytes.   This  does  not  include 
the  library  routines  that  are  used  for  graphics  and  trigono- 

etric  functions,  nor  memory  that  is  set  aside  for  variables. 
Although  the  Apple  II  is  a  64., 000  byte  machine,  it  cannot 
store  the  Pascal  language,  TMA,  and  the  library  routines  in 
memory  at  the  same  time.   Pascal,  however,  is  such  a  flexible 
language  that  it  allows  the  programmer  to  divide  programs  into 
smaller  segments  that  are  only  loaded  into  memory  when 
needed.   Only  the  'main'  program  need  reside  in  memory  at 
all  time. 

The  'main'  program  is  loaded  into  memory  automatically 
when  the  machine  is  turned  on,  provided  the  TMA  diskettes 
are  in  the  disk  drives.   The  'main'  program  has  two  important 
functions : 

1  .   The  declaration  of  all  global  variables  used  in  TMA. 
2.   The  job  of  'program  director'. 

Many  variables  used  in  TMA  are  global.   The  record  which 
contains  all  database  information,  datafile  names,  and  flag 
names  are  needed  in  various  segments  throughout  TMA.   In 
order  to  pass  the  values  of  these  variables  between  program 
segments,  they  must  be  declared  in  the  main  program. 
Unfortunately,  each  global  variable  consumes  precious  memory. 
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The  main  program  acts  as  program  director  by  checking  the 
status  of  each  flag  variable.   Throughout  the  program  various 
flags  are  set.   These  flags  are  boolean  variables  that   have 
values  of  'true'  or  'false'.   These  flags  are  changed  as  the 
user  progresses  through  the  program.  .When  the  user  leaves  a 
segment,  TMA  always  returns  to  the  main  program  to  check  the 
flags.   The  main  program  determines  which  segment  is  to  be 
loaded  into  memory  based  on  present  flag  status.   This  loading 
and  unloading  of  segments  into  the  memory  is  virtually 
invisible  to  the  user.   However,  program  response  time  is  slowed 
by  freq_uent  access  to  the  disk  drives. 

Once  the  main  program  is  loaded,  execution  begins.   TMA 
reads  a  file  on  the  TMA1  diskette  called  SYSTEM. MISCINFO. 
This  file  contains  the  screen  control  characters  for  each 
computer.   Using  SYSTEM. MISCINFO  allows  the  programmer  to 
perform  general  video  functions  that  are  terminal  independent. 
These  functions  include  clearing  the  screen  and  positioning 
the  cursor. 

An  initialization  segment  (TMAINIT)  is  loaded  next. 
TMAINIT  sets  certain  variables,  arrays,  and  all  flags  to 
their  initial  values.   This  segment  also  asks  the  user  if  he 
wants  to  resume  an  old  game.   If  the  user  responds  affirma- 
tively, the  proper  flag  is  set  and  the  program  transfers  to 
the  RESUME  segment.   The  RESUME  segment  reads  data  from  the 
last  move  of  a  previous  game  from  five  different  disk  files 
on  the  diskette  TMA2.   These  five  disk  files  are  then  removed 
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from  the  diskette.  If  the  user  opts  to  begin  a  new  game,  the 
motion  analyzer  subprogram  is  invoked  by  selecting  the  MOTION 
ANALYSIS  PROGRAM  option.   This  subprogram  is  the  bulk  of  TMA. 

B.   MOTION  ANALYSIS 

1 .   Segment  procedure  MATHFUNC 

The  procedure  MATHFUNC  marks  the  actual  beginning  of 
the  MOTION  ANALYSIS  PROGRAM.   This  procedure  has  several 
related  functions. 

MATHFUNC  first  asks  the  user  the  name  of  the  diskfile 
containing  the  database  for  the  game.   The  user  enters  the 
filename,  and  the  program  locates  and  reads  that  diskfile. 
Should  the  user  misspell  or  make  a  mistake  typing  the  filename, 
the  program  will  continue  to  prompt  the  user  until  a  correct 
filename  is  entered.   The  program,  having  read  the  desired 
datafile,  computes  each  target's  initial  position  and  displays 
them  on  the  monitor.   This  gives  the  user  an  opportunity  to 
visually  check  the  information  in  the  database.   The  user 
must  press  the  escape  key  (SSC)  on  the  keyboard  to  continue. 
At  this  point,  the  user  has  two  options.   The  user  may  elect 
to  continue  the  game,  or  return  to  the  database  segment  to 
make  changes  to  the  database.   The  database  segment  is 
discussed  in  detail  in  chapter  5. 

If  the  user  decides  to  continue  then  several  events 
occur.   TMA  opens  two  historical  datafiles  on  TMA1  ( ORNGOLD. DATA 
and  BLUEOLD. DATA) .   These  datafiles  maintain  unit  positioning 
data  for  use  during  the  RERUN  segment  of  TMA.   Specifically, 
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each   file  contains  an  X  and  Y  coordinate  for  each  unit  and  the 
time  increment  for  each  game  move.   One  additional  disk  file 
is  initialized  also  (BLUENOW. DATA) .   This  file,  on  TMA2, 
maintains  the  present  positioning  data  for  the  user's  units. 

At  this  time  TMA  ceases  to  be  a  self-contained  program 
and  the  user  is  informed  that  data  transfer  between  players  is 
necessary.   Instructions  are  displayed  on  the  monitor  and  the 
user  need  only  follow  them.   These  instructions  request  the 
user  to  remove  the  TMA2  diskette  from  drive  1(2    and  exchange 
it  with  his  opponent's  TMA2  diskette,  then  place  this  TMA2 
diskette  in  drive  §2.      As  mentioned  above,  a  datafile 
(BLUENOW. DATA)  is  maintained  on  TMA2  that  contains  current 
positioning  data.   When  these  diskettes  are  exchanged,  current 
positioning  data  is  also  exchanged.   Both  sides  now  have 
current  positioning  data  for  themselves  and  their  opponents. 
The  MATHFUNC  segment  terminates,  sets  the  proper  flags,  and 
transfers  program  control  back  to  the  main  program. 
2.   Segment  procedure  MOTION 

The  main  program  transfers  control  of  TMA  over  to  the 
procedure  MOTION.   This  procedure  performs  the  actual  motion 
analysis  requested  by  the  user.   The  user  has  the  following 
options : 

1 .  Advance  to  next  time-step. 

2.  Draw  range  circle  around  a  specified  unit. 

3.  Compute  range  between  units. 
4-.  Determine  GPA  between  units. 

5.  Determine  Course/Speed  of  units. 

6.  Check/Change  movements  of  a  unit. 

7.  Compute  intercept  between  units. 
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8.  Clear  the  display. 

9.  Downscale  display. 

10.  Upscale  display. 

11.  Recenter  the  display  on  a  specified  unit. 

12.  Toggle  between  text  and  graphic  page. 

13.  Terminate  the  game. 

3.   Segment  procedure  ADVANCE 

The  Advance  option  transfers  control  of  TMA  to  the 
ADVANCE  procedure.   Based  on  a  time  step  entered  by  the  user, 
the  program  calculates  new  X,  Y-coordinates  for  all  units. 
The  following  formulae  are  used: 

X'  =  X  +  (SPEED/60  X  TIME  x  2.8  x  3IN(CCURSE)) 
Y'  =  Y  +  (SPEED/60  x  TIME  x  1.92  x  COS(COURSE)) 

X',  Y'  represent  the  new  X  and  Y  positions  respectively, 
SPEED  is  the  unit's  speed  in  nautical  miles  per  hour,  the  60 
converts  it  to  minutes.   TIME  is  the  time-step  entered  by  the 
user  in  minutes.   The  numbers  2.8  and  1.92  are  the  number  of 
graphical  dots  per  nautical  mile  in  each  plane  X,  Y.   The 
trigonometric  functions  SIN  and  COS  determine  the  X  and  Y 
components  of  the  unit's  velocity. 

Before  the  actual  computations  are  performed,  however, 
the  user  is  given  the  option  of  viewing  and  changing  the 
present  course  and  speed  of  each  unit.   This  way  minor  changes 
may  be  made  to  the  database  without  returning  to  the  database 
procedure. 

A  pictoral  representation  of  units  before  and  after 
they  advance  is  shown  in  figures  1  and  2  on  the  following 
page.   Figure  1  shows  three  units  as  they  may  appear  before 
being  advanced.   Figure  2  shows  the  units  after  they  have 
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Figure  1:  Monitor  before  advance 
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Figure  2:  Monitor  after  advance 
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advanced.   Both  the  before  and  after  positions  will  be 
displayed  until  the  user  clears  the  screen  or  changes  scale. 

After  the  new  X  and  Y  coordinates  are  calculated,  they 
are  saved  on  the  diskette  TMA2.   Once  again  the  user  goes 
through  the  diskette  exchanging  procedure  with  his  opponent. 
These  coordinates  are  then  saved  in  the  historical  datafiles 
on  the  diskette  TMA1 . 

The  ADVANCE  procedure  then  transfers  control  back  to 
the  MOTION  procedure.   The  new  unit  positions  are  displayed 
and  the  user  may  again  select  from  the  various  options. 

4..   Segment  procedure  GIRCLS 

This  procedure  allows  the  user  to  draw  circles  of  a 
specified  range  around  any  unit.   The  TMA  program  prompts 
the  user  for  the  circle's  origin  and  a  radius  in  nautical 
miles.   Due  to  the  graphical  limitations  of  the  APPLE  II 
computer,  these  circles  must  be  drawn  one  dot  at  a  time. 
The  circles  will  always  appear  elliptical  vice  circular. 
This  is  because  of  the  difference  in  the  number  of  dots  per 
mile  along  the  horizontal  axis  and  the  vertical  axis.   Figure 
3  shows  the  display  after  a  circle  is  drawn  around  unit  number 
one.   After  the  circle  is  completed,  control  of  TMA  is  returned 
to  MOTION. 

5.   Procedure  RANGE 

Procedure  RANGE  is  incorporated  into  the  MOTION  segment 
procedure  since  it  is  relatively  small.   RANGE  calculates  the 
distance  between  any  two  units.   The  program  prompts  the  user 
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for  the  unit  numbers  desired,  target  1  and  2.   A  line  is 
drawn  between  the  units,  and  the  range  is  displayed  in  nautical 
miles.   Range  is  calculated  using  the  square  root  of  the  sum 
of  the  squares. 

DIST  =  SQRT(((X2-X1/2.8)A2  +  ( (I2-Y1 /1 . 92)A2 ) 

where, 

XI ,  II  is  the  present  position  of  target  1 .   X2, 
12  is  the  present  position  of  target  2.   The  factors  2.8  and 
1.92  transform  the  units  from  dots  per  nautical  mile  to 
nautical  miles.   The  term  'a2'  means  raised  to  the  second 
power.   SQRT  implies  take  the  square  root. 

Figure  4-  shows  the  display  after  the  range  between 
unit  zero  and  unit  one  has  been  calculated.   After  displaying 
the  calculated  range  between  targets,  program  control  is 
returned  to  the  MOTION  segment. 
6.   Segment  procedure  CPA 

The  CPA  procedure  calculates  the  closest  point  of 
approach  between  two  designated  units.   Computations  are  based 
on  present  course  and  speed. 

CPA  derives  all  information,  course  and  speed,  from 
the  two  most  recent  unit  positions.   Obviously,  if  no  advances 
have  been  made,  course  and  speed  can  not  be  determined.   CPA 
will  inform  the  user  that  not  enough  data  exists  to  calculate 
CPA. 

Assuming  at  least  one  time-step  advance  has  been  made, 
CPA  is  calculated  as  follows: 
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Figure  3:  Monitor  with  circle  displayed 


Figure  k:     Monitor  with  range  displayed 
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The  two  most  recent  positions  of  all  units  are  main- 
tained in  a  global  array  throughout  TMA.   Eased  on  these 
positions  the  course  of  any  unit  can  be  calculated  using  the 
arctangent  function. 

COURSE  =  ARCTANGSNT( (DX/2.8)/(DY/1 .92) ) 

DX  is  the  distance  moved  in  the  X  direction  and  DY  is 
the  distance  moved  in  the  Y  direction.   Once  again  these 
distances  are  translated  from  dots  per  nautical  mile  to  nautical 
miles.   A  problem  occurs  when  DY  is  zero  or  close  to  zero. 
By  checking  this  first  the  program  can  avoid  'division  by 
zero'  errors.   If  DY  is  zero  the  course  must  be  either  090 
or  270  degrees.   Again  this  can  be  determined  by  the  sign  of 
DX,   If  DX  is  positive,  for  example,  the  unit  is  traveling 
270  degrees.   Unit  speed  is  calculated  in  a  two  stage  process. 
Distance  is  calculated  first  using  the  same  method  described 
in  RANGE  above.   Speed  is  derived  from  this  distance  divided 
by  the  length  of  time  of  the  last  time-step. 

Knowing  the  course  and  speed  of  the  units  the  program 
uses  the  X  and  Y  components  of  velocity  to  compute  the  time 
of  minimum  distance.   This  is  the  tiire  of  CPA.   Once  GPA  time 
is  known,  the  relative  future  positions  of  each  unit  is  cal- 
culated and  displayed.   Figure  5  shows  the  screen  after  TMA 
has  calculated  CPA  between  unit  zero  and  unit  one.   The  end 
point  of  the  displayed  lines  is  the  relative  unit  positions  at 
CPA.   Finally,  the  program  informs  the  user  of  the  number  of 
minutes  until  CPA,  and  the  range  and  bearing  between  units  at 
CPA. 

Control  is  then  returned  to  the  MOTION  segment. 
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Figure  5 :  Monitor  showing  CPA 
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Figure  6:  Monitor  showing  unit  movement 
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7.  Procedure  INTERROGATE 

This  procedure  determines  the  course  and  speed  of  any 
unit.   As  in  CPA  above,  this  procedure  uses  the  two  most 
recent  positions  of  the  target  to  determine  its  course  and 
speed.   The  program  will  inform  the  user  that  it  does  not 
have  enough  data.   If  the  user  attempts  to  invoke  this  pro- 
cedure after  at  least  one  time-step  advance,  then  the  unit's 
course  and  speed  are  calculated  exactly  as  described  above  in 
CPA.   After  the  course  and  speed  has  been  determined  and 
displayed,  program  control  is  returned  to  MOTION. 

8.  Segment  procedure  MOVEMENT 

The  MOVEMENT  procedure  moves  individual  units  around 
the  grid  before  actually  making  the  changes  permanent  in  the 
database.   Three  types  of  movement  are  possible  for  the 
player's  units  and  one  type  for  the  opponent's  units: 

1.  Movement  using  course,  speed  and  time. 

2.  Move  your  unit  to  any  X,I  coordinate.  , 

3.  Move  your  unit  a  bearing  and  distance. 

4..   Move  your  opponents  units  based  on  their  present  course 
and  speed. 

Option  one  prompts  the  user  for  the  unit  number, 

desired  course,  speed  and  time.   The  future  position  is 

calculated  using  SIN  and  COS  functions,  and  then  displayed  on 

the  monitor.   Option  two  prompts  the  user  for  a  unit  number 

and  an  X  and  Y  coordinate,  which  is  then  displayed  on  the 

monitor.   Option  three  prompts  the  user  for  a  unit  number, 

bearing  and  distance.   This  is  transformed  into  an  X  and  I 

coordinate,  then  displayed  on  the  monitor.   Option  four  is 
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not  directly  visible  to  the  user,  nonetheless,  it  is  there. 
If  the  user  wishes  to  move  an  opponent's  unit,  option  four  is 
automatically  invoked.   Option  four  transfers  control  to 
segment  procedure  M0VE2. 

All  movements  allow  the  user  the  option  trace-on 
or  trace-off.   Trace  on  draws  a  line  from  the  old  position 
to  the  new  position.   Trace  off  will  not.   After  making  a 
move  the  program  asks  the  user  if  it  should  incorporate  the 
move  into  the  database  for  the  next  time-step.   If  the  user 
answers  affirmatively,  the  new  course  and  speed  for  the  unit 
moved  will  be  entered. 

Figure  6  shows  three  different  movements  of  unit 
number  one.   Note  that  two  movements  are  with  the  trace-on 
and  one  is  with  the  trace-off.   All  unit  movements  will 
remain  visible  on  the  monitor  until  the  user  clears  the 
screen . 

The  MOVEMENT  segment  can  only  be  terminated  by  the 
user.   Once  terminated,  program  control  is  returned  to  MOTION. 
9 .   Segment  procedure  M0VS2 

This  segment  is  invoked  only  when  the  user  wants  to 
move  an  opponent's  unit.   Since  the  user  has  no  control 
over  the  course  and  speed  of  these  units,  all  movements  are 
based  on  the  individual  unit's  actual  course  and  speed.   Course 
and  speed  are  computed  exactly  as  discussed  above  in  segment 
procedure  GPA.   Once  again  at  least  one  time-step  advance 
must  have  been   made  to  compute  the  unit's  course  and  speed. 
Assuming  the  data  is  available,  the  user  is  asked  for  a 
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time-step  increment  to  see  the  unit's  future  position.   The 
only  other  option  allowed  is  the  trace-on  or  trace-off.   This 
also  works  exactly  as  described  above  in  the  MOVEMENT  segment. 

Completion  on  the  M0YE2  segment  returns  control  of 
the  program  to  the  MOVEMENT  segment. 

10.  Segment  procedure  INTERCEPT 

This  procedure  computes  the  course  and  speed  required 
to  intercept  any  unit  from  any  user's  unit.   Three  inputs 
are  required  by  the  user.   Input  one  is  the  unit  to  be  inter- 
cepted.  The  second  input  is  the  unit  number  of  the  intercepting 
unit.   Note,  this  unit  must  be  maneuverable  by  the  user.   The 
final  input  is  the  desired  time  of  intercept  (minutes).   Once 
again  at  least  one  time-step  advance  must  be  made  to  compute 
an  intercept.   The  time  supplied  by  the  user  will  determine 
the  point  of  interception,  assuming  the  data  is  available  to 
compute  course  and  speed  of  the  unit  to  be  intercepted.   An 
intercept  course  is  computed  and  speed  is  calculated  based  on 
the  present  position  of  the  intercepting  unit  and  the  point 
and  time   of  interception.   This  course  and  speed  is  displayed 
on  the  monitor  and  the  user  is  asked  if  he  wants  to  make  this 
course  and  speed  change  to  the  database  for  the  intercepting 
unit. 

When  completed,  control  is  returned  to  the  MOTION 
segment. 

1 1 .  THE3I30  library  segment 

The  downscale  and  upscale  options  are  contained  in 
the  SYSTEM. LIBRARY  file  on  diskette  TMA1 .   These  options  allo^ 
the  user  to  change  the  scale  of  the  display  at  any  time. 
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The  left  arrow  key  {^ — )  controls  the  downscale 
function.   This  function  clears  the  display  and  then  redisplays 
all  units  at  a  scale  one  half  the  previous  value.   For  example, 
if  the  scale  is  10  dots  per  nautical  mile,  it  becomes  20  dots 
per  nautical  mile  after  a  downscale. 

The  right  arrow  key  ( — *")  controls  the  upscale  function. 
It  is  the  exact  inverse  of  the  downscale  function.   If  the  scale 
is  1 0  dots  per  nautical  mile,  it  becomes  5  dots  per  nautical 
mile  after  an  upscale. 

Neither  downscale  nor  upscale  have  any  affect  on  the 
actual  positions  of  the  unit's  coordinates  used  for  calculations 
These  positions  are  kept  in  global  arrays  that  are  used 
throughout  the  program.   The  present  scale  is  displayed  at 
the  top  of  the  screen  at  all  times.   The  scale  shows  the 
relative  horizontal  distance  of  ten  miles.   The  user  should 
note  that  the  same  vertical  distance  appears  shorter  because 
the  number  of  dots  per  nautical  mile  is  less.   Automatic 
scaling  is  not  available,  the  scale  will  not  change  unless 
the  user  exercises  his  options. 

1 2 .  Segment  orccedure  REGENT5R 

This  procedure  belongs  in  the  THESISO  library,  however, 
was  made  into  its  own  segment  because  of  memory  constraints. 
RECENTER,  as  its  name  implies,  recenters  the  display.   The 
space  bar  activates  this  procedure.   The  user  may  recenter 
the  display  on  any  unit.   This  becomes  very  important  as  the 
game  advances  and  the  targets  move. 
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Along  the  top  of  the  display,  next  to  the  scale,  are 
the  center  coordinates.   These  coordinates  are  initially 
(50,50)  which  is  the  center  of  the  screen.   As  the  user 
recenters,  the  top  of  the  display  always  indicates  the  current 
screen  center. 

After  recentering,  the  control  of  the  program  returns 
to  MOTION. 

1 3.  Toggle  the  display 

The  APPLE  II  computer  has  two  separate  screens,  the 
text  screen  and  graphics  screen.   The  TMA  program  tries  to  do 
a  good  job  of  anticipating  the  users  needs  by  switching 
between  text  and  graphics.   However,  the  user  has  the  option 
of  switching  between  text  and  graphics  on  his  own  by  using  the 
escape  (SSC)  key. 

H.  Terminating  TMA 

The  final  option  available  to  the  user  is  to  terminate 
the  program.   TMA  displays  the  same  menu  as  was  shown  at  the 
beginning  of  the  game.   If  the  user  selects  the  TERMINATE 
PROGRAM  option,  the  user  is  asked  if  he  wants  to  save  the 
game.   This  option  should  be  selected  if  the  user  wishes  to 
return  later  to  finish  the  game.   This  option  creates  five 
different  datafiles  on  diskette  TMA2  for  future  use.   When 
the  user  wishes  to  continue  the  game,  answer  affirmatively  to 
that  question  and  assure  that  TMA2  is  in  drive  ^2.   The  program 
will  load  the  appropriate  data,  initialize  the  proper  variables 
and  return  the  user  to  the  MOTION  segment  procedure  as  if 
he  had  never  left. 
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V.   THE  DATABASE 

The  database  subprogram  is  invoked  by  selecting  the 
'BUILD  OR  MODIFY  DATABASE'  option  at  the  start  of  the  game. 
The  database  uses  random  access  disk  files  to  build  and  main- 
tain a  record  of  specific  unit  parameters.   Modifications  to 
an  existing  database  are  quickly  made  due  to  the  random 
access  structure. 

Initially,  the  program  asks  the  user  to  enter  a  file  name 
for  the  database.   After  the  file  name  is  entered,  two 
possibilities  exist: 

1.  The  file  name  already  exists  on  the  game  diskette. 

2.  The  file  name  does  not  exist  on  the  diskette. 

If  the  name  is  presently  on  the  game  diskette,  the  program 
will  read  that  file  into  the  computer.   That  information  will 
then  be  available  for  viewing  and  editing.   If  the  file  name  is 
not  on  the  diskette,  the  program  will  ask  the  user  if  he 
wants  to  start  a  new  file.   A  'no'  response  will  cause  the 
computer  to  again  ask  the  user  for  a  file  name.   A  'yes' 
response  will  prompt  the  program  to  ask  how  many  records 
are  needed  for  the  new  datafile.   If  the  number  of  records  is 
not  known,  a  best  guess  is  required.   The  number  of  records  is 
necessary  to  define  disk  space  for  random  access.   However, 
if  the  user  decides  to  extend  the  number  of  records  the  program 
will  automatically  extend  the  size  of  the  datafile.   The  orosrara 
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will  notify  the  user  should  the  diskette  become  too  full  to 
extend  the  datafile.   To  save  disk  space  it  is  generally- 
better  to  initially  under  estimate  the  number  of  records  than 
to  over  estimate. 

At  this  point  the  user  will  choose  from  the  following 
options ; 

1.  View  the  present  database. 

2.  Change  the  present  database. 

3.  Build  a  new  game  database. 

The  option  chosen  will  determine  how  'deep'  into  the  database 
the  user  will  go.   Options  one  or  two  allow  the  user  access 
only  to  the  upper  level  of  the  database.   Option  three  allows 
access  to  both  the  upper  and  lower  levels.   The  upper  level 
consists  of  the  following: 

1  .  Glass : 

2.  Hull  number: 

3.  Maximum  speed: 
4..  Number  SAM: 

5.  SAM  speed: 

6.  Number  SSM: 

7.  SSS  speed: 

This  option  is  recommended  when  the  user  is  entering  unit 
data,  but  is  not  ready  to  start  a  game. 
The  lower  level  consists  of  the  following: 

1 .  Name : 

2.  Course: 

3.  Speed: 

4..   X  Coordinate: 
5.  Y.    Coordinate: 

This  option  is  recommended  when  the  user  is  ready  to  start  the 

game.   These  inputs  determine  the  initial  starting  position 

and  speed  for  each  unit. 
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After  choosing  which  level  of  the  database  to  enter,  the 
program  clears  the  screen  and  displays  a  prompt  line  along 
the  top.   This  prompt  line  affords  the  user  the  following 
options : 

1 .  Help 

2.  View 

3.  Change 
4..  Next 

5.  File 

6.  Return 

7.  Quit 

The  Help  option  explains  each  option.   The  View  option  displays 
each  record  for  the  users  inspection.   No  changes  may  be  made. 
The  Change  option  displays  each  record  and  prompts  the  user 
for  input.   Changes  are  made  respective  to  the  level  the  user 
is  in.   The  Next  option  displays  the  next  record  in  the  file. 
The  File  option  saves  the  present  database  to  the  diskette 
and  asks  the  user  for  another  filename.   The  Return  option 
allows  the  user  to  change  levels  within  the  database.   Quit 
saves  the  present  database  to  diskette  and  terminates  the 
database  session  of  TMA. 

Data  entry  into  the  database  has  been  designed  to  be  as 
painless  as  possible.   The  program  displays  the  present  con- 
tents of  each  field,  when  changes  are  required,  on  the  top 
half  of  the  screen.   The  user  is  prompted  on  the  bottom  half  of 
the  screen  for  input,  one  field  at  a  time.   If  a  restriction 
exists  on  the  range  of  that  input,  that  range  is  displayed  as 
well.   Any  field  may  be  left  unchanged  by  either  retyping 
that  data  or  by  using  the  RETURN  key.   The  return  key  will 
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automatically  duplicate  the  present  data  into  the  changed 
database  for  that  field. 

Each  record  in  the  database  is  numbered  by  the  computer. 
These  numbers  begin  at  zero  and  continue  sequentially  to 
N  -  1,  where  N  is  the  number  of  records  in  the  database. 
Any  record  in  the  database  may  be  viewed  or  changed  at  any 
time  by  entering  that  record  number.   Random  access  will 
minimize  the  time  required  to  make  minor  changes  to  one  or 
a  few  specific  records. 

There  exists  on  the  TMA1  diskette  two  predefined  databases, 
BLUEMASTER  and  BLUEGAME  or  ORANGEMASTER  and  ORANGEGAME 
depending  on  which  side  the  user  happens  to  be.   These  databases 
contain  ten  ships  with  characteristics  from  JANE'S  EIGHTING 
SHIPS.   They  are  provided  for  the  user  to  use  as  he  wishes. 
The  user  may  modify  these  files  or  use  them  as  they  are  in 
lieu  of  building  his  own  database.   It  is  recommended  the 
user  view  these  database  files  to  get  an  idea  of  the  type  of 
input  expected  by  the  program. 
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VI.   THE  RERUN  OPTION 

The  RERUN  subprogram  is  invoked  by  selecting  the  'RERUN 
MOTION  ANALYSIS  PROGRAM'  option  at  either  the  start  of  the 
game  or  after  terminating  a  game.   This  option  allows  the 
user  to  view  a  fast-time  replay  of  the  most  recent  session. 

As  mentioned  in  a  previous  chapter,  all  unit  positioning 
data  is  saved  in  datafiles  during  the  game  on  diskette  TMA1 . 
The  RERUN  subprogram  resets  these  datafiles  and  sequentially 
displays  the  unit  positions.   All  TMA  motion  analysis  options 
as  described  in  chapter  IV  are  available  in  RERUN. 

There  is  one  difference  between  the  RERUN  and  MOTION 
ANALYSIS  subprograms.   That  difference  is  in  the  segment 
procedure  ADVANCE.   The  RERUN  version  is  a  reconstruction  of 
past  events.   When  the  advance  option  is  selected,  the  user 
is  not  given  an  opportunity  to  examine  or  change  the  inputs 
to  the  database  (unit  course  and  speed).   The  ADVANCE  segment 
only  reads  the  next  positioning  data  from  the  diskette  files 
and  displays  it  on  the  monitor.   As  always  the  user  can 
analyze  all  unit  motion.   TMA  will  terminate  when  all 
available  data  has  been  displayed. 

Having  a  RERUN  option  gives  the  user  a  capability  to 
repeatedly  view  and  review  all  the  moves  of  a  previous 
session.   It  is  worth  noting  that  during  this  subprogram 
TMA  is  self-contained.   No  interaction  between  players  is 
necessary  since  all  positioning  data  is  stored  on    the  diskette 
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VII.   THE  USER'S  MANUAL 

The  following  is  a  step  by  step  instruction  guide  to 
facilitate  the  running  the  TMA  by  an  unexperienced  user. 

A.  EQUIPMENT  NEEDED 

1 .  Two  game  diskettes  marked  TMA1  and  TMA2  for  each  player, 

2.  Two  APPLE  II  computers  with  6^,000  bytes  of  RAM  (random 
access  memory) . 

3.  Two  disk  drives  and  one  monitor  per  computer. 

B.  OPTIONAL  EQUIPMENT 

1 .  Videx  80  column  board  with  soft-switch  installed  in 
APPLE'S  slot  ^3. 

2.  Color  monitor. 
G.   GETTING  STARTED 

1 .  Turn  on  the  monitor. 

2.  Insert  TMA1  into  disk  drive  §^    and  TMA2  into  drive  §2, 
Remember  to  close  the  doors! 

3.  Turn  on  the  APPLE.   The  power  switch  is  located  on  the 
left  side  of  the  APPLE  in  the  back. 

i.       The  TMA  program  is  automatically  loaded. 
D.   TROUBLESHOOTING  POSSIBLE  PROBLEMS 

1.  No  power--Sn3ure  all  hardware  is  properly  connected. 
If  the  user  is  unfamiliar  with  the  equipment,  seek 
out  an  experienced  user. 

2.  TMA  does  not  load. 

a.   Check  that  the  diskettes  TMA1  and  TMA2  are  in  the 
correct  disk  drives. 
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b.  Ensure  that  the  APPLE  II  is  configured  as  listed 
above. 

c.  -Attempt  the  startup  procedures  on  the  second 
APPLE.   If  not  successful,  the  diskettes  may  be 
defective,  use  the  backup  diskettes. 

d.  Seek  assistance  from  an  experienced  user. 

At  this  point,  if  the  user  has  been  successful,  TMA  is 
loaded  and  ready  to  run.   Chapters  4-.  5,  and  6  explain  in 
detail  how  TMA  works  and  what  inputs  are  required  from  the 
user.   TMA  is  menu  driven  and  designed  to  be  user  friendly, 
The  author  hopes  the  users  enjoy  it. 
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VIII.   AREAS  FOR  FUTURE  ENHANCSiMENTS 

TMA  is  a  small  scale  model  of  what  a  microcomputer, 
interactive  wargame  can  do.   As  such  there  is  much  room  for 
program  enhancement.   One  reason  the  author  chose  Pascal  as 
the  program  language  is  the  readability  of  the  code.   It 
should  be  relatively  easy  for  a  user  familiar  with  Pascal  to 
make  changes  to  the  program. 

The  design  of  TMA  has  significantly  changed  from  initial 
logic  to  final  product.   The  incorporation  of  various  changes 
has  resulted  in  a  orog-ram  that  is  far  from  ootimal.   The 
present  design  of  TMA  uses  all  the  segments  and  library 
routines  that  Apple  Pascal  can  handle.   Therefore,  any  changes 
other  than  very  small  ones,  will  require  the  user  to  somehow 
condense  the  present  code. 

The  present  inefficiency  of  the  program  is  illustrated 
by  the  following  example.   The  procedures  that  compute  a 
unit's  course  and  speed  are  repeated  in  four  different  segment 
procedures.   If  this  were  incorporated  into  a  library  it  would 
only  be  written  once  and  could  be  removed  from  each  segment. 
There  are  several  occurances  of  similar  situations. 

Another  method  of  streamlining  the  program  is  by  chaining 
programs  together.   The  built-in  library  function  GHAINSTUFF 
provides  the  necessary  machinery  to  chain  together  as  many 
programs  as  can  fit  on  a  diskette.   To  use  GHAINSTUFF  on  TMA 
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would  require  the  reduction  of  libraries  or  segments  presently- 
used  by  at  least  one.   With  chaining  the  author  can  create 
many  separate  programs  that  appear  to  the  user  as  a  single 
large  program.   A  user  may  wish  to  supplement  TMA  with  some 
additional  motion  analyzing  options.   Additions  such  as  this 
may  easily  be  appended  to  the  present  program.   If  lack  of 
memory  becomes  a  problem  some  of  the  above  enhancements  will 
be  required  also. 

A  final  area  that  could  be  enhanced  is  the  individual 
algorithms  themselves.   The  algorithms  were  written  for 
clearity  not  efficiency.   Many  of  the  procedures  and  functions 
of  TMA  could  be  changed  to  conserve  memory. 
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COMPUTER  PROGRf^ 


ami) 
ms*H) 

PROGR^  TW;  (  THESIS  } 


USES 


rilRTLEGRAPHI  C3  ,Ti¥WSCENO ,  3ETCRT  ,TH£SIS8 ; 


CONST 

PI=3. 141592(554; 

TfPE 

SHIP=RECORD 

CLASS: 

3TRINGC18]; 

hWIE: 

3TRINGE19]; 

HULLNO: 

STRINGE83; 

3C0URSE: 

IWTEGER; 

3SPEED: 

INTEGER; 

;<POS: 

INTEGER; 

YPOS: 

INTEGER; 

HAXSSPO: 

INTEGER; 

NSf^: 

INTEGER; 

:a^SPO: 

INTEGER; 

NSSM: 

INTEGER; 

S^ISPO: 

INTEGER 

BhD: 

^m  CH:  CWR; 

TE<T.3LFLAG,RCTRFl>«3,CaMTINUE.LASTCH(^J6£, BUILDING, DBCALLED:  BOOLE^W; 

ItlFLAG ,  RRFLAG ,  TPJiG  1 ,  TFWG2 .  TFLAG3 ,  TFLAG4 ,  TFijiGS ,  TFIj^64  ,  TFLAG7 :  BOOLD^ ; 

STOPFLAG . GRAFFLA6 ,  IN ITFLA6 , QUITFiJ«3 , OLDFLAG , CASE8 , O^SE  1 ,  j^E2 :  BCOL&^i ; 

CA3E0A,OLDG«€,IC?TFlAG:  90CL£'^; 

QKSn:  oETOFC-^^R; 

DATAFILE:   FILE  OF  SHIP; 

BLUHIST,3LUGel1E,0RNHIST,0RNGAH£:  FILE  3F  REAL; 

ATIME:    FILE  QF  INTEGER; 

^V¥<SHIP  J  IME,aRi^(xM0V£,3LL!EMCME, TARGET  ,D£LW  ,REC^^UM:         INTEGER; 

FILEhWiE:      STRIh<G[153; 

|jCUS,GSPD:  .^KED  ARRAYE1..18]  sjF  REAL; 

QlDBXY.aLDQXY:  ^ACXED  ARRAY[1..2,1..I9]0F  REAL; 

(.?$I#5:TI1AINIT.TEXT-5) 

(3($IS5:TM)31.TE<Tx) 

(^$Iil5:RESiJHE.TE<Tx) 


i5 


(■($Ii^5:^ttTH.TEXT?) 
(3f$I#5:MOTII]N.TEXT3f) 

(j$II}5:CIRa£.TEXT5f> 

(X$I»5:CPA.TEXT?{) 

(5$I#5:HWEMENT.TE<TO 

(3{$I#5:MCVE2.TEXT5{) 

(«I1»5:RECENTER.TE<T» 

(5($I#5:BLIh«.TE:<T)0 

(J$I«5:TWiFINIT.TEXn) 

BEGIN    (  im  ) 
(i$R  GETCRDf) 
I3ETCRTINF0; 
08CALLED:=fAL3E; 
TmiNIT; 
REPEAT 

IF  0LDF'-A6  then  RESIJME;    {    read  in  old  positions    ) 

IF  INITFUIG  THEN  T>WINIT; 

IF  CASE9  THEN  •^THF'JNC: 

IF  (CASE9A)  AND  (NOT  .RCTRFIAG)  <W  (NOT  BLFLhG)  THEN  ^ttTHF^JNC; 

IF  CASE  1  THEN  RECENTER; 

IF  CASE2  THEN  DATABASE; 

IF  (CONTINUE)  (W  (NOT  BLFLA6)  THEN  MOTIGf<; 

IF  (BIFLAG)  (V«)  (NOT  RCTRFLA6)  THEN  SOnOMLINE; 

IF  (TFLAGl)  AND  (NOT  BLFLAG)  fm   (NOT  .xCTRFLAG)  THEN  HOyEMENT; 

IF  MMFLAG  THEN  M0UE2: 

IF  (TFIA62)  hWO  (NOT  3LFLA6)  Mi  (NOT  ,RaRFlj«)  THEN  MOTION; 

IF  TFLAG3  THEN  CPA; 

IF  TFLA64  THEN  MOTIGN; 

IF  (TFLAG5)  f^  (NOT  RRFLAG)  THEN  ADM^CE; 

IF  (TF'JiGS)  AND  (RRFLAG)  THEN  CIRaE; 

IF  (TFJiG«)  .AND  (NOT  BLFLAG)  THEN  MOTION; 

IF  TFLAG7  THEN  CIRaE; 

IF  RCTRFLAG  THEN  RECEhfTER: 

IF  QUITFLAG  THEN  TJ^FINIT; 
(MIL  STOPFlAG; 
END.  {  Tm  } 

SEl^ENT  PROCEDURE  Tf^INIT; 
UAR  Ctf^LAG.GFLAGl:  CH^R; 
LE;a3:  SETGFCS^R; 
PROCEDURE  'RESTART; 
BEGIN 

OKSET:=['Y','y','N','n'l; 

i3OTQXY(3,a);CRT(EHASE0S): 

WRITELN; 

>IRITELN('    MEMORY  AVAILABLE  IN  >JORCS:  '  ,ME}iAt;AIU  ; 

WRITELN; 

WRITELNC    MOTION  (WLYSI3  PRDSRAM  QP'^IONS  :  '); 
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milZLH', 

WRITELNC    DO  YdJ  i^ISH  TO  RESUME  (^  OLDQVIE  (Y/W?  '); 
WRITELN;WfiITEi>l; 

WRITEC     ');        GFLA6h=G£TC.^R(0KSET+iCHR(13)]); 
CRKERASEOS) ;  CRT(ERA3£0S) ; 
IF  GFLAGI  IN  ['Y'/y']  THEN  OLDFLAG:=TRUE; 
END;  (  PRE3TART  ) 

PROCEDURE  START; 
BEGIN 

30T0XY(9.9);CRT(ERASE0S); 

WRITELN; 

i^ITELNC    ."iEMORY  AyAILABLE  IN  WORDS:  ',MEm,¥^IL); 

WRITELN; 

WRITELNC  MOTION  A^*M.YSIS  PR06»^  OPTIONS  :  '); 

WRITELNC  '); 

WRITELNC    9    Motion  Analysis  Program'); 

WRITELNC     I    Rerun  Motion  Analysis  Program'); 

WRITELNC    2    Build  or  Modify  Data  Base') ; 

WRITELN^'    3    Terminate  Program'); 

WRITELN; 

l^RITEC     ');        3FLA6:=6ETCmR(La'EL3) ; 

CRT(ERASEOS) ;  CRT(ERASEOS) 
END;  {  START  ) 


PROCEDURE  3ETFLAGS; 
BEGIN 
CONTINUE :=FALSE;( 


INITFLAG:=fALS£;( 
i3U)FLAG:=FALSE:  ( 
0LD»^E:=fAL3E;  ( 
3LFUG:=FALSE;  ( 
RRFLA6:=FAL3£;  ( 
MiFLAG:=fALSE;  ( 
TFU61:=FALS£; 
TR>iG2:=FAL3E: 
TFLA63:=FALSE; 
TFW64:=FALSE; 
TFLA65:=FAL3E; 
TFLA66:=FALSE; 
TFLA6?:=FAL3£; 
ICPTFLAG:=FAL3E;  { 
CA^8:=FAL3E;  ( 
CASE0A:=fALSE;  ( 
CASE!:=FAL3E;  ( 
CASE2:=i^AL3E;  ( 
GRAFFLAG:=FAL3E:{ 
'^CTRPJiG:=FALSE;( 


tr-f  to  TOtion  ^ro»  3»ath         ) 

set  to  true  if  dataOase  an  called  } 

calls  tmainit  seg-orixedure    } 

set  to  true  it  player  wishes  to  resume  old  game  ) 

set  to  true  li  this  is  a  resumption  of  an  old  game) 

tr-f  to  bottom!  ine  ) 

tp-f  to  rerun  ) 

tr-f  to  iw}ve2  trm  soveaent  } 

tr-f  to  TOvement  from  motio)  ) 

trf  to  niotion  from  nKN-ement  ) 

trf  to  CDa  from  motion    ) 

trf  to  TO)tion  from  coa    } 

trf  to  advance  frcn  iiotion    } 

trf  to  (notion  frcm  advance    ) 

trf  to  circle  fraa  Tiotion      ) 

calls  interceot  routine    } 
calls  .nathfunc  5eg.f»'!xedure  ) 

calls  .uathfunc  seg. procedure  ) 
calls  rerun  ;eg.  orccedure    ) 
calls  database  seg.orocedure  ) 
*lag  +cr  orafmode  ) 
calls  recenter  rounne    ) 
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QUITFLA6:=FAL3E;{  calls  tiaa^init  ;eg. procedure) 
STCPFLAG:=FhLSE;{  terminates  tma  ) 
END; 

PROCEDURE  INITFIG; 
'JAR  I, J:  IKTEGER; 
BEGIN 
FOR  I:=l  TO  3  DO  BEGIN 
FOR  J:=!  TO  7  DO  BEGIN 
3HIPFIG[I,J]:=FAL3E; 
END; 

SHIPFIG[ !,!]:=  TRUE; 

SHIPFIGI4,11:=  TRUE; 

SHIFFIG[4,7]:=  TRUE; 

SHIPFI6[7,3]:=  TRUE; 

SHIPFIGI7.5]:=TRl!E; 

FOR  I:=l  TO  3  DO  3HIPFIGII,4]:=  TRUE; 

FOR  I :=2  TO  4  DO  BEGIN 

SHIPFIG[I,3]:=  TRUE; 

3HIPFIG[I,5]:=  TRUE; 
END; 
FOR  I :=3  TO  4  DO  BEGIN 

SHIPFI6[I,23:=  TRUE; 

SHIPFIG[I,6]:=  TRUE; 
END; 
END; 

BEGIN  {  TmiNIT  ) 
LPJad:=['r,'r/2','3']; 
TIME:=e; 
XCTR:=149; 
YCTR:=?4: 
MAXORANGE:=«; 

wt<auE:=e; 

BLL'EM0UE:=8: 

0RANGtM0^^E:=9; 

SCALE :=!; 

IF  SOT  DBCALLED  THEN  SETFLA6S; 

INITFIG; 

^'RESTART; 

INITFIAG:=FALSE: 

IF  0LDFLA6  '1€N  E<IT(TmiNIT) ; 

START: 

CASE  ijFLAG  OF 

'9'  :  CASES :=TRUE; 

'1'  :  CASE1:=TRUE; 

'2'  :  CAS£2:=TRU£; 
BUO;    (  CASE  } 
IF  i3FlAG  =  '3'  'HEN  3T0FFLAG:=TRU£; 
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END;  (  TWINF  } 
SEGMENT  PROCEDURE  RESUME; 
WR 

ENCW,3CLD,(]NCW,0OLD:  FILE  OF  REAL; 

HISC:  FILE  OF  INTEGER; 

J:  I^fTEi3£R; 

PROCEDURE  HSG; 
SEGIN 

G0T0XY(8,3);  CRT(ERASEOS) ;  30TaXY(9,3); 

WRITEINC  UNAaE  TO  RESUME  m  OLDGf^E  ~  DATA  NOT  A^.'AILABLE  '); 

WRITELN; 

WRITELNC  WKE  SURE  THE  CORRECT  DISK  IS  IN  DRIVE  12  i  ') ; 

FOR  J:=l  TO  4888  DO; 

INITFUGrsTRUE; 

OLDFLAG:=fALSE; 

EXIT(RESUM£) ; 
END; 

BEGIN 
J:=l; 

RES£T(BNCW,  '#5:0LD1.DATA') ; 
IF  (lORESULT  O  9)  THEN  MSG; 

mm) 

WHILE  NOT  EOF(BNOW)  DO  BEGIN 

3XY[l,J]:=a«]r:  GET(»ICW); 

3XYt2,J3:=eNGW*;  GET(SNCN); 

GCUS[J3:=  BNCW*;  GET(eNOW); 

■oSPOtJ]:=  ShtOW^  {£T(BNa4); 

J:=Jtl; 
END; 

MAXBLUE:=.M; 
CLOSE (a^OW, PURGE) ; 

!•-•  • 

im-i) 

RESET(BaD,  '15:GLD2.DATA') ; 
IF  (lORESULT  {)  8)  THEN  MSG; 

mi£  NOT  EOF(BOLD)  DO  3EGIN 

OLT'BXYI : ,  J]  :=80LD* ;  GET(BCLD) ; 

3LD8XYI2.Jj:=80LD^  GET(8aO); 

J  :=.]+!; 
END; 

aOSE(BOLD,PURGD; 
J:=l; 
mi-i) 

SE^CGNOW,  'i»5:0LD3.DATA'); 
IF  (ICRESULT  <}  8)  THEN  MSG; 
(«IH) 
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WHILE  NOT  EOF(CNCW)  DO  BEGIN 

QXY[1,J3:=0N0W*;  GET(CNGW); 

0XY[2,Jl:=flN(]W^  5ET(Cr«]W); 

J  :=.>!; 
END; 

MAXQRAN6E:=J-I; 
aOS£(!]NGW,PUR6D; 
J:=l; 

R£SET(OaD,  '1B:0LD4.CATA'); 
IF  (IORESU.T  <}  9)  THEN  MSG; 

mil  NOT  EOF(OOLD)  DO  BEGIN 

GLDQXYI 1 ,  J]  :=OOLI>^ ;  3ET(0OLD) ; 

0LDG)(Y[2,J]:=OaD^;  GET(OOLD) ; 

J:=J+1; 
END: 
CLOS£(001J), PURGE); 

RESET(HISC,  '<f5:0LD5.DATA'); 
IF  (ICRESUIT  O  8)  THEN  M^; 
(3f$I+t) 

TIME:=MISC^  GET(MISC); 
BLUe^O'v'E:=«ISC*;  GET(MISC) : 
OR^^EMWE:=«ISC*; 
aOS£(MISC,PliRGD ; 

REWRITE(Cra^HIST.    i|d:0f»<6OLD.DATA') ; 
SLFIAG:=TRUE: 
CCNTINUE:=TRl£; 
OLDFLAG:=t-ALSE; 
OLDGWiE:=TRUE; 
SCALE :=1 ; 
XCTR:=148; 
YCTR:=?6; 

REJ«ITE(BLUHIST,  'iM:SLUEOLD.DATA') ; 
INinURTLE:  TD<T:=<^AL3E; 
END; 

(i$6+l) 

3EGHENT  PROCEDURE  DATABASE; 

(      PRCGR«1  TO  !JSE  f^«)GM  ACCESS  DISK  FILES  } 

;      m  TERMINAL-iNDErENOENT  SCREEN  CONTROL.  } 

CONST 

CLASSLEN=  18  ;I^ELEN=  !8  ;HULLN0LE>*=8;SC0URSa£N=3;SSPDLEN=2; 

XP0SL£N=3 ;  YPQSLEN=3  ;«SP0L£N=4  :hWSLL£N=2 ; 

FUNCTION  YES:  BOCLEhW; 
BEGIN 

•fES:=  5ETC!*«(['Y','v'/N','n'])  IN  ['Y'/v']; 
END; 
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PROCEDURE  MENU; 

mR  SUaESSFUL:  BOOlEfW; 

3E6IN 

6OT0X'f(9,d);  CRT(ERASEOS) ;  3(TT0XY(8,2); 

WRITEL^U'       Tl^  DATABASE  WIN  MENU   '); 

WRITELN; 

WRITELNC         (A)    View    database'); 

WRITELNC         (B)     Change    database'); 

MRITELNC         (C)    Build  new  game  database  '); 

WRITELNC         (Q)     Quit    '); 

CH:=GETCrt;R(['A','a'/3','b','C'/c','0','d','Q'/q']); 
G0TQXY(8,d):  CRKERASEOS) ; 
IF  CH  IN  I'C'c']  THEN 

BUILDING :=TRUE 
ELSE 

8UILDING:=FALSE; 
END;  {  Menu  ) 

PROCEDURE  ZEHORECC.'AR  REC:  SHIP); 
BEGIN 
WITH  REC  DO 
BEGIN 

CLASS:="; 

.^*^E:="; 

HULL>IO:="; 

SCOURSE:=«; 

3SPEED:=«; 

XP0S:=8; 

YPOS:=«; 

!*C<S3P0:=8: 

NSAM:=«: 

'a^SP0:=8; 

NSSH:=e; 

SSMSP0:=6; 
END; 
END; 


PROCEDURE  V-ALIDATECWR  SEC:  SHIP) ; 

{  ) 

C  } 

{   TRIES  TO  DETECT  i^  ZERO  f^  UNINITIALIZED  RECORD     ) 
(   NO  CH(:*i6E  IF  ALL  FIELDS  ARE  IVIID.  } 

{  } 

{  } 

PROCEDURE  CHECKCJAR  3:  STRING;  f^LEN:  INTEGER) ; 

LABEL  1; 

^JAR  I:  INTEGER; 
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3E3IN 

IF  L£NGTH(S)  )  I^LEN  THEN  GOTO  1; 

FOR  !:=!  TO  LENGTH(S)  DO 
IF  NOT  (SEI3  IN  ['  '..')'])  DBi  GOTO  1; 

EXIT(CHECK) ;  (    STRING  IS  OK    } 
1:  ZERCR£C(REC) ;  E<IT(miDATD  ; 
E^©;  (    CHECK    ) 

BEGIN  (    IW.IDATE    ) 
WITH  REC  DO 
BEGIN 
CHECK(CLASS,CLASSL£H); 
CHECKfHULLNO.HllLNCLEN); 
END; 
END;  (    WIIDATE    } 


PROCEDURE  SHOWREC(REC:  SHIP) ; 
BEGIN 
GOT0XY(8,2);  CRT(ERASEOS) ; 
WITH  REC  DO 
IF  NOT  BUILDING  T^€N 
BEGIN 
WRITELN( 'Class: 
WRITELNCHull  no.: 
WRITELNCMax  soeed: 
WRITELNCU  S^: 
HRITELNCS^  Speed: 
WRITELNCIt  3SH: 
WRITELNCSSM  Speed: 
END 
ELSE 
BEGIN 
WRITELNCClass: 
'^ITELNCName: 
■WRITELNCHulI  no.: 
WRITELN( 'Course: 
WRITELN( 'Speed: 
WRITELNCX  Coordinate 
WRITELNCY  Coordinate 
WRITEli<('Max  soeed: 
WRITELNCI  S^: 
WRITELNCSi^  Soeed: 
WRITELNCil  SSM: 
WRITELSCS^I  Soeed: 
EM); 
EMD: 


' .CLASS) ; 

'.HULLNO); 

'  ,J^SSPO) ; 

'.NSi^); 

',S^SPD); 

'  ,N3^) ; 

'jS^ISPO); 


',^**^D; 

'  ,HULl^) ; 
',3CGURSD: 
',3SPEED); 
'  .XFOS) ; 
'  ,^fPOS) ; 
'  ..-^SSPD) ; 
•'  .NSi^) ; 
'.a^SFO); 
'  ,NSSM) ; 
'.S^SPO); 


PROCEDURE  CWI6EREC(';AR  REC:  SHi?;S3PDLEN,HSFDL£N,M1SLLEN..^EL£N,3C0URSEL£N, 
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XPOSLEN,YPOSLEN  :  INTEGER); 
BEGIN 
IF  BUILDING  THEN 

BEGIN 

G(JTQXY(a,15);  CRT(ERAS£OS); 

PRflMPTAT(15/ (Press  return  ior  no  change)'); 

END 
ELSE 

BEGIN 

GOT0XY(9,12);  CRT(ERASEOS) ; 

PRflMPTAT(12,' (Press  return  for  no  change)') 
END; 
WITH  REC  DO 

IF  NOT  BUILDING  THEN 

BEGIN 
60T0XY<9,I4);WRITELN('    ALL  NIWERICAL  INPIJT  ARE  INTEGERS' !   '); 


GETSTRING(CLAS3,CU^SSL£N) ;    WRITEUi; 
GETSTRIN6(HULLN0,HULLN0L£N) ;  14RITELN; 
GETINTEGER(^WXSSPD,SSPOL£N) jWRITELN; 
GETIhfrE3ER(NS^,MiSLLeO  ;WRITELN; 
3ETINTEGER(SAMSP0,MSP0L£N) iWRITELN; 
6ETINTE6ER(NSSH,.^LL£N)  ;«RITELN; 
6ETINTEG£R(3SMSPD,MSFDL£N) ;«RITELN; 


WRITECClass:  '"): 

WRITECHu!)  no.:  ') 

WRITECMax  speed:    ') 

WRITE('#  S<yi:       ') 

WRITECa*!  Speed:    ') 

HRITECS  SSM:       ') 

WRITECSSM  Speed:    ') 
END 
ELSE 
BEGIN 

GaTQXY(9,17);WRITELN('  ALL  NUHERICAL  INPiJT  ARE  INTEGERS!'  ') ; 

WfilTECNane:  ');  6ETSTRIN6(^tt^<E,^W€LEN) ;  WRITELN; 

WRITE( 'Course:     (8-3^9)  ') ; 

REPEAT 

GETINTE6ER(SC0{JRSE,3C0URSELEN) ; 

UNTIL  (SCOURSE  <=  368)  m   (SCOURSE  )=  3) jWRITELN; 

WRITE( 'Speed:    O-Haxsod)  '); 

REPEAT 

GETINTEGER(SSPEED,3SPaEM) ; 

UNTIL  (SSFEED  >=  i)  mQ  ^SSPEED  <=  f^SSPD  );WRITELN; 

WRITECX  Coordinate:  (8-198)  ') ; 

REPEAT 

GETINTEGER(XPOS,;<PCSLEN); 

UNTIL(  XFt3S  >=8)  mO  (XPOS  (=198)  ;HRITELN; 

WRITECY  Coordinate:  (8-199)  '); 

REPEAT 

GETINTEGER(YPOS,YPOSLEN) ; 

tlfriL(YPOS  >=8)  m  (YPOS  <=  199) ;«RITELN; 
END; 
END;  (    CH^GEREC    ) 


PROCEDURE  NEWFILE; 
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(."AR  SU!:£SSFUL:  BOOLEPW; 
IR£C,MAXREC:  INTEGER; 

BEGIN 
BUILDING:=FALSE; 
CLOSE(DATAFILE,LOCK);  {  IN  CASE  IT'S  ALREADY  OPEN  ) 

REPEAT 

3CT0XY(8.1);  CRT(EPASEOS); 
G0T(KY(8,2); 

HRITELNC         im  Haster  datatile  is  :  BLliEmSTER  '); 
WRITELNC         im  Game  datafiie  is      :  SLL'EGi^E  '); 
WRITELNC         For  new  database  use  dif-ferent  nanie.  ') ; 
PR0HPTAT(3/File  Name:  ');  REAOLN(F!L£NW^D; 
RESET([)ATAFILE,FIL£^*V^E):     {    TRY  TO  OPEN  tW  .XD  FILE    ) 
SUCESSFUL  :=  (I0RESULT=8) ; 
IF  NOT  SUCESSFIJL  THEN    (    START  A  HEW  FILE?    } 
BEGIN 
PRCHFTATde, 'Start  a  new  file  ?  '); 
IF  YES  THEN 
BEGIN 
REWRITE(DATAFILE,FILE>*^D ; 
FROMPTAT (12, 'Reserve  how  many  rectM^ds  ?  '); 
REAOLN(}^REC) ; 
SEEK(DATAFIL£,«AXREC) ; 
ZERCRECCOATAFILE") ; 

PUT(DATAFILE) ; 

IF  (I0RESULTO8)  OR  £CF(DATAFIL£>  THEN 
BEGIN 
PR(]MPTAT(14,'Not  enough  rocn.  Press  return  '); 
REAOLN; 

3tJCESSFiX:=FALS£; 
END 
ELSE 
BEGIN 

{  INITIALIZE  CGKTQdS  OF  FILE  ) 
FOR  IREC:=9  TO  MAXREC  DO 
3EGIN 
3EEK(DATAFIL£,IRED; 
PUTvOATAFILE) ; 
END; 
CLGSE(I>^TAFILE,L0aO;  {    LOCK  IT  IN  PLACE    ) 
RESET(DATAFILE.rIL£htt«D ; 
SUCESSFUL  :=  (ICRESULT  =  9); 
END: 
END; 
END: 
UNTIL  SUCESSFiX; 
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SECNIJH:=-1; 
LASTCH^E:=FALSE; 
MEhW: 
END; 


PROCEDURE  CJWJGE; 

(J$I-D 
REPEAT 

PRCMPTAK 2 /Change  which  record  ?  ') ; 

READliKREC>JtJM) ; 
INTIL  I0RES11T=8; 
(3f$I+s) 

SEEK(DATAFIL£,R£QJUH); 
GEKDATAFILD ; 

IF  EOF(DATAFIL£)  THEN  (    E:<TENDING  FILE    )  ZEROREC(DATAFILE*) ; 
WLIDATE(DATAFIL£^); 
SHCWREC(DATAFILE-') ; 
CHW6EREC  ( DATAF I  LE\  SSPOIEN  .MSPDLEH ,  ,^liSLLEN  ,.^W1EL£N ,  SCCURSELEN , 

XFOSLe<,YPOSL£N); 
SEB«DATAFILE,RECNUM); 

PUT(DATAFIL£) ; 

IF  (I0RESIJLTO9)  OR  EOF(DATAFILD  THEN 
BEGIN 
G0T0XY(8,28); 

W?ITELN(D«^(7) /^J^WBLE  TO  EXTEND  FILE,  NO  DATA  WRITTEN'); 
WRITELNCUse  Filer  K(runch  conroand  to  uaKe  soacs  after  file.'); 
END; 
LASTC}W«3E:=TRliE; 
EMO; 


FROCEDl»RE  ^^lEW; 
3EGIN 
(S$I-^) 
REPEAT 
?R0MPTAT(2,'View  ^tiich  r?cord  ?  ') ; 
REAOl>i(RECNW) ; 
UNTIL  I0RE3ULT=(J; 

mm) 

SEEK(DATAFILE,RECNUM); 
GET(OATAFILD ; 
IF  EOF(DATAFILE)  THEN 
BEGIN 

GCT0)Cf<8.4); 

:4RITE(  Record  ',RECNl«,'  not  in  tile.); 
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END 

ELSE 
SE6IN 
',%LIDATE(DATAFIL£"); 
SHOWRECCCATAFILE"); 
END; 
LASTCW*«3E:=FALSE; 
END; 


PR«:EDURE  NEXT; 

(  VIEW  OR  CMNGE  NEXT  RECORD    ) 
BEGIN 
RECNUM:=ftECNlJM+l; 
SEEK(DATAFILE,RE!>AJM); 
i3ET(DATAFIL£) ; 
IF  EOF(DATAFIL£)  THEN 
BEGIN 
2EROREC(DATAFILEr5 ; 
IF  NOT  LASTCIWWE  THEN 
BEGIN 
G0T0XY(9,4); 

WRITECRecord  ',RECNUM,'  not  in  file.'); 
EXIT(HE<T) ; 
END; 
END; 
6aTQXY(9,l);  l«ITE( 'Record  number  ',3Ei>^UM); 
';ALIC<^TE(DATAFIL£")  ; 
SHCWR£C(DATAFILE*) ; 
IF  WSTCWiNGE  THEN 
BEGIN 
CHW6EREC  ( DATAFILE-^ ,  SSPOLE>J  .MSPDLEN  ,mSl]J}i  ,M^L£hJ ,  3C0URSELEN , 

XFOSLEN.YPOSLEN) ; 
SEEK(DATAF1L£,RECNUH); 
mi-i) 
P'JT(DATAFILD; 

IF  (I0RESULTO9)  OR  EOF(DATAFILD  Tf^N 
BEGIN 
6OT0XY(9,29): 

WRITELN(CHR(7)  ,'IJW8L£  TO  EXTEND  FILE,  NO  'IttTA  i-^RITTEN'); 
i^RITELN('Use  Filer  K(runcn  :o(iffliand  to  naKe  ^oace  after  file.') 
END; 
END; 
END; 

PROCEDURE  INSTRUCTIONS; 

'^ 
CH  :  CmR; 
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S-E6IN 
WRITELNC 
WRITELN; 
WRITElilC 
WRITELNC 
WRITLLNC 
WRITELNC 
WRITELS; 
WRITELNC 
WRITELJ^C 
IhRITELN; 
WRITELNC 
WRITELNC 
NRITELNC 
WRITELN; 
WRITEliJ; 
WRITELN; 
WRITELN; 
WRITELNC 


mS\lR  1^  DATABASE  EDITOR  '); 

This  nwdule  erf  the  Drooram  allows  '/ou  (the  user)  to  '>; 
VIEW  or  CHANGE  an  existing  data  base.  ') ; 

In  addition  you  may  create  a  new  data  tjase  by  using  the  ') ; 
FILE  cQcanand.'); 

You  begin  by  entering  the  FILE  ^WiE  o^  the  data  your  ') ; 
interested  in  or  the  FILE  NAME  of  your  NEW  data  base.  '); 

For  examole:    the  file  0IW<(3£MASTER  contains  the  oresent  '); 
library  of  Orange  ships  in  the  Master  T!^  data  base.  '); 
Likewise,  for  the  file  BLUEMASTER.  ') ; 


{    HIT  SPACEBAR  TO  CCNTINIX  >  '); 


REA0(KFrB(3AR0,CH) ; 
END;      {  INSTRUaiONS  } 


PROCEDURE  HELP; 
BEGIN 
G0T0XY(9,4);  CRT(ERASEOS) ; 


WRITELNC  i  Hap 
WRITELN; 

WRITELNC  Wiew 

WRITELNC  Dhange 

WRITELNC  N)ext 

WRITELNC  F)ile 

WRITELNC  S)9turn 

WRITELNC  H)eiD 

'WRITEL^U'  ffluit 
END; 


E:<planation  of  ooticns  <  '); 

To  look  at  the  selected  database  '■>; 

To  change  any/ii I  elements  of  the  selected  database'); 

To  page  forward  to  the  next  record  ') ; 

To  close  the  file  being  worked  on  and  start  another'); 

To  return  to  the  ;naster  .nenu  ') ; 

To  display  this  table  of  exolanations  '); 

To  terminate  the  database  .iianioulation  iio<»jle  ') 


BEGIN  (    !^IN  FR0GR>V1    ) 
aGSE(BLUG^E,LOCK) ; 
CLOSE(BLUHIST.lOCK); 
CLOSE(CRNa^E.LQCK) ; 
ai3SE(0RNHI3T...0CK); 
CL1]SE(ATIME,L0CK)  ; 
CASE2:=  FALSE; 
INiTFU^:=TRUE; 
30TQXY(9,3);  CRT(ERaSEQS) ; 
INSTRUaii>iS; 
NEWFILE; 
DBCALL£D:=TRUE; 
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REPEAT 
IF  NOT  BUILDING  THEN 
?R01PTAT(8/)DEWSTER:  V(ie«,  CChange,  NCext,  F(ile,  R(eturn,  H)elp,  Q)uit') 

asE 

PRi]MPTAT(9/}DBBUILD£R:  Vdew,  C(hanQe,  N(ext,  F(ile,  R(eturn,  H)e!p,  Q(uit'); 
CH:=GETClW?(['N\'n%TS'fS'V','v','C','c','R','p','H','h','Q','q']); 
CRT(ERASEOS) ; 

CASE  :h  of 

'N'j'n':    NEXT; 

'F'/f:    NEWFILE; 

'V',V:    VIEW; 

'C'C:    CI**«3E; 

'R'/r':    MENU; 

'H'/h':    HELP; 
END; 
mil  CH  IN  ['Q'/q^l; 
CLOS£(DATAFIL£,L0CK); 

PR(I1PTAT(  12, 'FINISH  DATA  BASE  I^IPULATIQN...') ; 
END; 


SEGMENT  PROCEDURE  fV^THFIJNC; 

UAR 

INDEX:  INTEGER; 

L:  CmR; 

FWME:  STRING!  15]; 

6N«€:  STRING!  19]; 

6CIXJRSE,5SPEED,GX,G*f:  REAL; 

SUCCESSPJL:  SOOLEf^: 

PROCEDURE  HSTART; 
'JAR 

aiCCESSFUL:  BOOLEAN; 
BEGIN 
SUCCESSFUL ;=TRUE; 
IF  OECALLED  THEN  F^4*!E:=FIL£^tf#!E 
ELSE 
REPEAT 
DBCALLED:=TRUE; 
3OT0XY(8,9);CRT(ERASE0S); 
GOT0XY(8.2); 
IF  MOT  SUCCESSFUL  THEN 

WRITELNC      That  File  Name  iS  not  on  this  disk!'   ') ; 
WRITELN; 
WRITELNC      nmm  AMAIU^BLE  in  ;40RDS:  -.MEmUAIL); 

i>jRITELN;'/iRITELN; 

WRITELNC      Default  TMA  game  tile  name  is  BLUEi^ME  ') ; 
WRITELNC      If  ^/ou  have  previously  saved  another  game  ') ; 
i^ITELNC      database  '/m  wisn  to  use  type  that  file  nase  in.  •); 
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PRaiPTAT(I2/    FileHaiBe:  ');REAOLN(Ri^); 

FI13WE:=fNAHE; 

im-i) 

RESET(OATAFIlE,F?WE) ;     (TRY  TO  OPEN  PN  OLD  FILE) 

SUCCESSFUL  :=aORESULT=«); 

UNTIL  SUCCESSFUL; 
CLOSE (DATAF I L£, LOCK); 
END; 

PROCEDURE  MINIT(WR  REC:  SHIP) ; 

PROCEDURE  TRANSFORM; 

TViOPI:  REAL; 
BEGIN    {  TRANSFiDRM  ) 
T>iOPI:=2.8JPI; 
GX:=  aX3(2.3; 
5Y:=  mi. 92', 

GC3URSE:=6C0URSEJ(PI/188.9) ; 
WHILE  GCQURSE  )  TViOPI  DO 
BEGIN 

GCOURSE:=  (GCCURSE  -  TWOPI) ; 
END; 
END;     (  TRANSFORM  ) 

PROCEDURE  INITDISP; 
WR    X,Y:  INTEGER; 
BEGIN    C  INITDISP  ) 

PE>O.0R  (NONE) ; 

X:=RGUND(GX) : 

Y:=ROUMD(GY); 

Ma.'ETO(X,Y); 

DR«:*i8LQCK(SHIPfIG,2,3,8,7,3,X,Y,I8); 

NUMBER(X,Y, INDEX); 
END;      (  INITDISP  ) 

PROCEDURE  SETARRAY; 
BEGIN    {    SETARRAY    ) 

3CUSI  INDEX  ]:=)3CGURSE; 

3SP0I INDEX] :=6SPEED; 

3XYn,INO£<3:=GX; 

3XYI2. index:  :=i3Y; 

BL'JGAME":=GX;P'JT(8LyG(^D ; 

BLUGh^E*  :=!3'i' ; PUT  ( BLUG^IE) ; 

BLUHI3T*:=<3X;P!JT(BLUHISD; 

3LUHIST*:=8"f  ;PUT(BLUHIST) ; 
END;  (  SETARRAY  ) 

^GIN  i  MINIT  } 
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INITTURTLE;  TE<TMODE;  TEXT:=  TRUE; 
RECN111:=«; 

RESET(DATAFIL£.RW1E) ; 
ReNRITE(BLUHI3T.  '^4:BLuE0U).DATA') ; 
,9EWRITE(8LUGAME,  'i^5:Bl•JE^fOW.CttTA') ; 
WHILE  (NOT  EOF(DATAFILD)  im  (RECNUM  (  18)  DO  BEGIN 
S£EK(DATAFIL£,RECMJM) ; 
GEKDATAFILD ; 
WITH  REC  DO 
IF  (L£NGrH(CWSS)  >  I)  hWD  (hV«(3SP0  >  9)  THEN  BEGIN 
IN0E<:=RECNIJM+1; 
f^a.tJ£:= INDEX; 
(m1E:=^W^<E; 
GCOURSE:=SCCURSE; 
GSPE£D:=3SPEED; 
GX:=XPOS; 
fff:=YPOS; 
TRWSFORM; 
SETARRAY; 
INITDISP; 
END;  ^ 

RECNtjM:=RECNlJM+l; 
END; 

aOSE(DATAFIL£,LOCK); 
aOS£(eLUGrt€,LOCX); 
3LIJHIST*:=  -9?99;  PUKBL'JHISD ; 
ijRAFHODE;  TE<T:=fALS£; 
BLU£Ha.€:=8LUE310M£  +  1; 
CASE9A:=TRUE; 
a.FLAG:=TRU£; 
EXIT(MATHFUNC) ; 
END;    {    MINIT    ) 

PROCEDURE  GETDATA; 
•JAR  J:  INTEGER; 
BEGIN 

RE>«ITE(0i^WI3T.  ')»4:0RNGaD.DATA'); 

J:=l; 

RESETCORNGAME,  'S5:0fiNGNCW.DATA') ; 

SLiCCE3SF.iL:=  (ICRESUIT=9) ; 

IF  m  SUCCESSFUL  IHEN  ZXIT(GETDATA)  ; 

(x$lH) 

WHILE  (NOT  EOF(ORNGi^))  ^^  (J  (=  18)  DO  BEGIN 

aXY[l,J]:=ORNGW^"; 

GET(ORNG^E) ; 

0XY[2.J]:=OR^^GA^!E^ 

0RNHIST*:=OXYtl.J];  PUTCORNHIST) ; 

0RNHIST^=aXYI2,J];  ?'JT  (ORNH I  ST) ; 

J:=J  +  1; 
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GET(ORNQi^) ; 
END; 

fW(OfWiGE:=  J  -  1; 
OfiNHISr:=  -9999;  PJKORNHIST) ; 
CLOSE(CRNG«iE,LOCK) ; 
END; 

PROCEDURE  FIRSTMWE; 
BEGIN    (  firstnwjve  ) 
CONTINUE :=TRUE; 
TEXTMODE;  TE<T:=TRUE; 
SUCCESSFUL :=TRU£; 
REWRITE(ATIME,  '■#4:TmE.DATA') ; 
ATIHE*:=TIME;  PUT(ATIME; ; 
REPEAT 

G0T0XY(9,a);  CHT(ERASEOS) ; 

G0T0XY(9,3); 

l^ITELNC  !!!     FOLLOW  THESE  INSTRUQ I CNS    !l!     ') ; 

WRITEL^J; 

HRITELN; 

IF  NOT  SUCCESSFUL  THEN 

WRITELNC  J  ERROR  f*^S  OCCURED  WHILE  TRYING  TO  READ  DATAFILE  (W  DISK  M2  V) 

WRITELNC  1.  REMO^'E  3<^E  DISK  FROM  DRIVE  1»  2  '); 

WRITEU^; 

WRITELWC  2.    EXCHANGE  DISKS  WITH  OPPONENT    '); 

WRITELNC  3.    PLACE  OPPONENT'S  UPDATED  ^^E  DISK  IN  DRP-'E  U  2  '); 

mnZLH;  WRITELN; 

WRITELhK'  <    PRESS  RETURN  WHEN  READY    >    ') ; 

WRITELNjREAOLN; 

SETDATA; 
UNTIL  SUCCESSPJL; 
0R(:W6EMOUE:=0RWGEM0UE  +  1; 
BLFij«:=TRUE; 
END; 

PROCEDURE  MENUM; 
BEGIN 

TE<TMODE;  TE<T:=  TRUE; 

GKSET:=t'A'/a'-,'S','b'.'Q'/q'']; 

GOT0XY(9,3>;CRTfERA3£OS); 

?RaiPTAT(9,'>  You  have  the  following  choices  '); 

3aTQXY(9,3); 

wRITELNC    A)  .Return  to  DATABASE  (  for  changes  )  0; 

WRITELNC    B)  Continue  with  the  aajne'): 

l^ITELN; 

^i^ITELNC  Q)uit  (terminates  Drooram)  '); 

L:=6ETCmR(0KSET) ; 

CASE  L  OF 
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'A'/r:  ::ASE2:=TRUE; 
'S'",'b':  FIRS"n'i(X/E; 
'Q^'q^•  £XIT(T>W); 
END; 
END; 

BEGIN    {  MATHFUhC  > 
mR  TURTL£GRAPHICS3f) 
()f$R  THESIS8*) 
CASE9:=fi^3E; 
TIM£:=8; 

IF  NOT  CASE8A  THEN  MSTART; 
IF  NOT  CASE0A  THEN  HINIT(DATAFIL£*) ; 
CASE8A:=FALSE; 
REPEAT 
mSEJ'M'  '3; 

L:=G£TCmR(OKSET  ♦  [CHR(27)  ,a«(3)  ,CHR(21)]); 
IF  L=CHR(  3)  THEN  L:='D''; 
IF  L=CHR(21)  THEN  L:='U'; 
CASE  L  OF 
'U'  :  BEGIN 

UPSCALE; 
BLFLA6:=TRUE; 
CAS£9A:=TRUE; 
E:<IT(mTHF(>C) ; 
END; 
'D'  :  BEGIN 

DOWSCALE; 
BLFLAG:=TRUE; 
CASE0A:=THUE; 
E:<IT(hWTHFUNC) ; 
END; 
'  '  :  BEGIN 

RCTRFLAG:=TRUE; 
CASE8A:=TRUE; 
EXIT(WITHFUNC) ; 
END; 
END; 
iHTIL  L  =  CHR(27) ; 
KENUM; 
END; 
SE^IENT  PROCEDURE  MOTI(^; 

'v'AR 

MPj^Gl:  300LEj^; 

PROCED)JRE  DI3TSP0(DX,DY:  REAL;'.¥»R  DIST,3FD:  READ; 
BEGIN 

DIST:=  3QRT(SGR(DX)  +  3QR(DY)); 

SPO:=  DIST  /  DELTAT  ?  d9; 
end; 


FUNCTION  DE6REE3(0X,DY:  REAL)  :  INTEGER; 
CONST  ERR  =  «.31; 
UIAR  WLUE:  INTEGER; 
3EGIN 
IF  (OX  <  (9+ERR))  m  (DX  >  (9-ERR))  THEN  BEGIN 
IF  (DY  <  (9+ERR))  AND  (DY  >  (9-ERR))  THEN  DEGREES  :=  9; 

IF  DY  y  9  THEN  DEGREES  :=  188; 

IF  DY  <  9  THEN  DEGREES  :=  348; 

EXIT (DEGREES); 
END; 
IF  (DY  (  (9+ERR))  (W  (DY  >  (9-ERR))  THEN  BEGIN 

IF  DX  }  3  THEN  DEGREES  :=  278; 

IF  DX  (  9  THEN  DEGREES  :=  398; 

EXIT(DEGRES) ; 
END; 

';ALL£  :=  S0UND(139  /  PI  I  Aim   (DX/'DY)); 
IF  ABS  ('fALUD  (>  I'ALUE  THEN  BEGIN 

IF  OX  <  9  THEN  DEGREES :=  138  +  'JALUE; 

IF  DX  :•  8  THEN  DEGREES :=  348  +  VALUE; 
END 
ELSE  BEGIN 

IF  DX  >  9  THEN  DEGREES:=  1^  +  '^UE; 

IF  OX  (  9  THEN  DEGREES :=  t.-ALCE; 
END; 
END; 

PROCEDURE  DISPLAY; 
WR  J,X.Y:  INTEGER; 
BEGIN 
PENCOLOR(NONE) ; 
FOR  J:=  1  TO  ^WXBLUE  DO  BEGIN 
X:=R0UND((BXY[1,J]-XCTR)/SCALDM48: 
Y:=RaWD(  (BXYt2,J]-YCTR)/SCAL£) +96; 

DRJ^BLXK(SHIPFIG,2,3,3,7,3,X.Y,19); 

NlJhBER(X.Y,J); 
END; 
FOR  J:=l  TO  ."^OR/^GE  DO  BEGIN 

X:=ROU^D(  (QXY  [  1 ,  J3-;<C^R)/SCALD  + 143 ; 

Y:=RCLNO( (0X7[2,J]-YCTR) /SCALE) +94; 

HQ«JETO(X.Y) : 

DRK*«LXK(3HI?FIG,2,a.9,7,3,X,Y,5); 

L£nER(X,Y,J); 
END; 

6RAFMGOE:TEXT:=FAL3£; 
END; 

PROCEDURE  YOURSIDE(TGT:  C}*^R;*JAR  X,Y:  INTEGER); 
VAR  J:  INTEGER: 
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XX, YY:  REAL; 
BEGIN 
J:=0RD(TGT)-0RD('9'); 
J:=.J+1; 
X:=R01WD(BXY[1,J3); 


Y:=RQlND(a<Y[2,J]); 
END; 

PROCEIXJRE  OTHERSIDEdGT:  CmR;WR  XJ:  INTEGER); 
l^AR  J:  INTEGK: 
XX,YY:  i?EAL; 
BEGIN 
IF  TGT  IN  ['a'..'j']  THEN  J:=0RO(TGT)HTRD('a')  ELSE 

J:=CRC(TGT)-CRD</A'); 

J:=J+1; 

X:=ROJ>ID(OXYn,J]); 

Y:=R0UN0(0XY[2,J]); 
END; 

PROCEDURE  fWfljE; 
VAR 

X1,X2.Y1,Y2,DIST.X,Y.I:  INTEGER; 
DISTjy^lCE.DELTAX.DELTAY:  REAL; 

TARGET  I, TAR6ET2:  ':HAR; 
BEGIN 

X:=«:Y:=«; 

GRAfWQDE:  TD(T:=FAL3E; 

0KSET:=['9'..'?','A'./J'/.3'..'.j']; 

PENCGLCR(WHITE) ; 

30XSTR1N6(3,2,'    ^mX.:    LETTER  /  NlhBER  i]F  1ST  SHIP    ') ; 

TARGET  h=t3nCWR(CJ<SETl; 

IF  TARGETI  IN['9'./9']THEN  YCURSIDE(TARt3ETl.X,Y)ELSE  OTHERS  IDE  (TARGET  1,X,Y) 

X1:=X;  Y!:=Y; 

30XSTRIN6(3,2,'     fW^:    LETTER  /  Nlt«BER  OF  JUD  SHIP    '); 

TARGET2:=OFC^R(0KSED ; 

CLEARBOX; 

IF  TAR6ET2  INC'9'./?']TH£N  Y0URSIDE(TARGET2,X,Y) 
ELSE  0THERSI0E(TARGE^2,X,Y); 

X2:=X;  ^2:=Y; 

!)ELTAX:=  :Q  -  XI:  DEL'AY:=  Y2  -  Yl: 

DISTANC£:=SQRT(SQR(OELTAX  /  2.3)  +  SQR(DELTAY  /  !.92)); 

DI3T:=ftOUND(DI3TANCE) : 

X 1 :=RCIMD( (X 1-XCTR) /SCALE) + 149 ; 

•^  1  :=ROl^0  ( ( Y 1-YCTR)  /SCALD  +94 ; 

MOgETO(Xl,Yl); 

?ENCCLOR(WHITE) ; 

X2:=Rt3lMD(  (X2-XCTR)/ SCALE)  + 148 ; 

Y2:=i;0UNO(  (Y2-YCTR)/ SCALD  +96; 

MWET0(X2.Y2) ; 

F£hJCQLCR(NaiD ; 
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FOR  I:=  1  TO  2989  DO  BEGIN 

I:=Itl; 
END; 

i3OTQXY(9,9);CRT(£RA3E0S); 
30T0XY(9,4); 

WRITELNC'       The  distance  ^ro«  ',TARG£T1,'  to  ',TAR6ET2/  is  :  ') ; 
NRITELN; 

WRITELNC  SOIST,'  MILES!  '); 

wRITELN;WRITELN:WRITElN: 

WRITELNC  <  PRESS  RETURN  TO  CM INUE    >      ') ; 

TEXTMODE;T£XT:=TRUE; 
REhDLN; 
END; 

PROCEDURE  INTERROGATE : 
'M  CQURSE,X,Y,TGT:INTEG£R; 

TARGET:  Zmi-, 

SPt).DX,OY,OIST:  REAL; 

PROCEDURE  ?«SSA6£2; 
3EGIN 

G0T0XY(9,9);  CRT(ERASEOS); 

G0T0XY(9,o); 

WRITELi^('       The  course  and  speed  of  shio  *  ', TARGET/  is  :  '); 

WRITELN; 

WRITELNC    ', COURSE,'  Degrees  ',ROUNO(SPO) ,'  Knots  ') ; 

WRITELN;WRITELN;WRITELN; 

WRITEUJC       (  PRESS  RETURN  TO  CCNTL^WE  )   '); 

TE)CmODE:TEXT:=TRUE: 

READLN; 
END; 

PROCEDURE  MESSAGE  1: 
9EGIN 

TE;<TH00E;  TEXT:=  TRUE; 

GOTOXY(9.3);CRTi'h=ASE0S); 

60T0XY(9,i); 

WRITELNC      Not  enough  data  to  canoute  course  /  sceed  '); 

>iRIT£LN:i^RrELN:WRIT?J^; 

WRITELNC  <  PRESS  ^EuJ»i  TO  CONTINUE    )      ') : 

REACLN: 

EXIT( INTERROGATE); 
END; 

BEGIN  {  interrogate  ) 
IF  GR/WGEMOUE  <=  1  THEN  MESSAGE  1: 
X:=9;  Y:=9; 

0KSET:=['9'..'?',-A'..'J','a'..'j']; 
GRAFMCDE;  TEXT:=FALSE; 
H0XSTRING(3.2,-  INTERR:  ENTER  LEHER  /  NUMBER  OF  SHIP  '); 
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TARC€T:=GETC}^R(OKSET): 

CLEARBQX; 

IF  TARGET  IN  ['r  ./?']TH£N  BEGIN 

TGT:=0RD(TARGET1  -  GRDCr); 

TGT:=TGT  +  1; 

DX:=OLDaXY[l,TGT]  -  BXY[1,TGT]; 

DY:=QLD8XYt2,T6T]  -  B>CfC2,?GT]; 

E^«} 

ELSE  BEGIN 

IF  TARGET  IN  I'a'./j']  THEN  T6T:=0RD(TARGED-0R0('a')  ELSE 
TGT:=CRD(TARGED  -  GRD('A'); 

TGT:=TGT  +  1; 

DX:=OLi)OXY[l.TGT]  -  OXYIIJGTl; 

0Y:=0LDQXY[2,TGT]  -  QXY[2,TGT]; 
£^iO: 

DX:=OX  /  2.3; 
DY:=€Y  /  1.92; 
TEXTMOOE;  'EXT:=TRUE; 
COURSE:=0£GREES(OX,DY); 
0ISTSP0(DX,DY,DIST,3PD): 
fiESa^2; 
END; 

PROCEDURE  3TARTIT; 
BEGIN 
IF  ijRAFFWG  THEN  BEGIN 
GRARiODE; 
TE<T:=fALSE; 
■3RAFFlAG:=FALSE; 
END 

EL3E  BEGIN 
TtXT>!CCE: 
TECT:=TRUE: 
END; 
END; 

PRGCEUURE  3T0PIT; 
BEGIN 

9RFiJiG:=^AL3E; 

TE<TMODE;  'E:cr:='RUE; 

•3yiTFL^G:=^RUE; 

EXITCMCTIOrO ; 
END; 

PROCEDURE  ^!ENU; 
'.■AR 

CH:  OWR; 
BEGIN 

:STARTIT; 

REPEAT 
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nKSET:=['A'..'H'/3'-..'h','Q','q'3; 

G0TaXY(9,3):CRT(£RASE0S); 

60TQXY(8,5); 

mmm'  A)    A<j«*ance  to  next  time-steo  '); 

WRITELNC  B)     Draw  range  circle  around  a  sceci^ied  unit  ') ; 

WRITELNC  C)    Comwte  range  between  units    '); 

WRITELNC  0)     Determine  CPA  {  CLOSEST  POINT  OF  APPROACH  BETWEEN  illITS  }'); 

WRITELNC  E)    Coocwte  and  disoiay  Course  and  Soeed  o^  units    '); 

WRITELNC  F)     Check  /  Change  moveiBents  of  a  unit    '); 

!€ITELNC  G)    Coiwjute  Interceot  trcra  ons  unit  to  another  '); 

WRITPJ^C  H)     Clear  screen  ') ; 

'iMRITELN; 

IsRITELNC  Q)     QUIT  ^HE  Tm  PRCGRW1    ') ; 

WRITELN; 

WRITEL>K'  [<-]      Downscale  diso^av  '); 

WRITEWC  [->]      Upscale  disoiay  '); 

14RITELNC[sDace]  Rec enters  disoiay  '); 

WRITELNC [ESC3      Toggles  display  between  text  and  oraohics  ') ; 

CH:=QETCWR(0K3ET+  [CHR(27)  .CHRCS)  ,CHR(21)  ,ai'R(32)  J) ; 

CRT(£RASEOS) ; 

IF  CH=CHR(8)  THEN  CH:='R';    (  left  arrow  >  reduce  scale  ) 

IF  Ctt=CHR(21)  THEN  CH:='I';  (  right  arrow  >  increase  scale  ) 

IF  (CH=CKR(2?))  fW  (TEXD  THEN  BEGIN 

GRAFMCOE; 

TEXT:=FALSE; 

CH:='2'"; 
END 
ELSE  IF  (CH<HR(27))  m   (NOT  TEXT)  THEN  BEGIN 

TEXTf^GOE; 

TE<T:=TRUE; 

CH:='Z'; 


E>«; 

CASE  !:H  OF 

'A'. 'a': 

3EGIN 

TFLAG5:=TRUE; 

EXIT  (HOT  I CN); 

EhiD; 

'3','b': 

BEGIN 

TPLAG7:=TRUE; 

EXIT(M0TiaO ; 

E^JD: 

'C','c': 

.^GE; 

''OS-d': 

BEGIN 

TFI;M33:=tRUE; 

EXIT(MOTIQN) ; 

END; 

'E'.'e': 

INTERROGATE; 

BEGIN 

TFu^Gh=TRU£; 

£:<IT(MOTI(>D ; 
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END; 
'S'/g':    BEGIN 

ICPTFLAG:=TRl£; 
BLFL'^G:=TRUE; 
TFLA62:=TRUE; 
EXIKHOTIQN) ; 
END: 
•'H','h'':    SE3IN 

INITTURTLE; 
5tf!jiG:=TRUE; 
C!KnhHJE:=TRUE; 
EXIKMOTIGN) ; 
END; 
'R'        :    BEGIN 

DC^WSCALE; 
8LFLAG:=TRUE; 
TFLAG2:=TRUE; 
EXIT(MGTI(^) ; 
END; 
'V        :    BEGIN 

UPSCALE; 
8LFLAG:=TRUE; 
TFLA62:=TRUt: 
E<IT(MOTIQN) ; 
END; 
:    BEGIN 

RCTRFLA6:=TRl£; 
TFLAG2:=TRUE; 
EXIT(MOTICN) ; 
END; 
ENO; 

IF  (CH  =  'R')  OR  (CH  =  'I')  OR  (CH  ='   ')  THEN  GRAFMODE; 
INTIL  CH  IN  [  'Q'/Q'  ]; 
STCPIT; 
END; 

BEGIN  {  Tioticn  ) 
<MR  TURTL£GRAPHIC33() 
mR  THESI39)() 
(3t$R  TRANSCENDS) 

IF  '.TFIAG6)  OR  i'COMTINUE)  'HEN  D ISP-AY; 

CJMINyE:=fALSE: 

TFij^:=FALSE; 

TRj^4:=FAL3E; 

TFLA66:=FALSE; 

MENU; 
END; 

sE^err  procedure  ciRaE; 
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PROCEDURE  CIRCPART; 
VAR 

X,Y,NX,M/,I,-V*J6E,iWIGEL£N:  INTEGER; 

flX,RY,HADiU3,TH£TA:  REAL; 

TARGET:  CmR; 

DOT:  BGOlEPtii 

PROCEDURE  YOURSIDE(TGT:  Z'rf^-.'M  X.Y:  INTEGER); 

•;AR  J:  I^frEGER; 

BEGIN 

J:=CRD(TGT)-GR0('iO; 

J:=J+1: 

X:=R0UNO(  (BXY[  1 ,  J3-XCTR)/SCALDM49; 

Y:=i<0lJN0((BX'i'[2,J]-iCTR)/SCALD+96; 
END; 

PROCEDURE  0THERSIDE(T5T:  C»R;'JAR  X,Y:  INTEGER); 

WR  J:  INTEGER; 

BEGIN 

IF  TGT  IN  ['a'..'j']  THEN  J:=CRD(TGT)-GR0('3')  ELSE 

J:=CRD(TGT)HjRO('A'); 

J:=J*1; 

X;=ROl*JD(  (QXYl  1  ,J3-XCTR) /SCALD  +  !48 ; 

Y:=ROUN0( (QXYr2,J3-YCTR) /SCALD +94: 

3E5IN  {  circlecart  ) 
(3f$R  TURTLEGRAPHICS30 
mR  TRANSCEKDJ) 
(1$R  'HESIS8J) 
TFlAG7:=vALSE; 
TFLAG2:=TRUE; 
COT:=TRUE; 
R(^EL£N:=3; 
GRAfliODE;  TEXT:=fAL3E; 
0KSET:=['3'..'?','A'..'J'/3'..'j'j; 
PENCQLORfNHITD ; 

B0X3TRIN6(3,2/  CIRaS:  ENTER  LETTER/NUHBER  OF  ORIGIN  '); 
TARGET  .•=i3ETCJ^R(GK£ED; 
IF  TARGET  IN  I'V  ..'?'■  'HEN  YOURS I DEC TARGET ,X,Y) 

ELSE  >3THERSI0E(TARGET,X,Y): 
30XSTRIN6(3,2,'  CIRaE:  ENTER  DESIRED  fW«j£  OF  CIRCLE  '); 
3ETI^frEG£R(:yW6E„WGEL£N) ; 
aSARBOX; 
SAOIUS:=R<^GE: 
H0«;ETG(X,Y); 
FOR  I;=  1  TO  !89  DO  BEGIN 

THETA:=«.323SIJPI; 

RX:=(RADIUS52.SsSIN'THETA)/SCAL£+X); 

,RY:=(RA0IUSxl.?2SC0S(T"nETA)/SCAL£*Y); 
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NX:=RC!JhD  (.^X) ; 
N'Y:=f?GUrJD  (.RY) ; 

DfV*IBLOCK(DOT,  1,8,3, 1,1,,'<X,NY,  19) ; 
f1GVET0(X,"i'); 
E^^D; 
END; 

PROCEDURE  AOUIPART; 
WR  TESTVAL'JE:  REAL; 

PROCEDURE  mmii 

PROCEDURE  MSG8; 
BEGIN 

G0T0XY(8,a);  CRT(EHASEOS) ;  30T0XYf8,3); 

WRITELNC  <  THE  RERUN  PORTION  OF  Tm  IS  TEi^INATED  >  ') ; 

WRITELN; 

i^ITEliU'     NO  MORE  DATA  EXISTS  ON  FILE  '); 

WRITELN; 

WRITELNC       TWfl<-YOU  FOR  PLAYING  TMA      ~      ^RESS  RET'JI^ '0  CONTINUE    0  ; 

TEXTnODE;  TEXT:=TRUE; 

REAOLN; 

TFLAG5:=fALSE; 

RRFLA6:=FALSE; 

QUITFLAG:=TRL€; 

EXIT(CIRaD ; 
END; 

PROCEDURE  3ETBLUE; 
WR  J:  INTEGER: 
BEGIN 
J:=l; 

TE3T,ALu'E:=3; 

WHILE  <m  E0F(BLUHI3T))  m   (TESPv^UE  >  -«99)  DO  BEGIN 
3£T(SLUHI3T) ; 

IF  EOF(BLUHIST)  THEN  MS68; 
IF  J  :>  19  THEN  E:<IT(5ETBLUD: 
IF  TESTVALUE  <  -99?  THEN  EXIT(GETBLUE) ; 
0LDiXYn,J3:=  3XYC1,J]; 
5XY[1,J]:=8LUHIST*; 
GET':  BLUHI3T) : 
XDBXYI2,J::=  3XY[2,J]; 
3XY[2,J3:=8LUHIST*; 
J:=J  +  1; 
?V»(BLL'E:=  J  -  2; 
END; 
END; 

PROCEDURE  SETQi^GE: 
'm  J:  !NTE'3£R; 
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BEGIN 
J:=l; 

T£ST^JALUE:=8; 

;*^iLE  (NOT  EOF(CRNHIST))  f^  (TESTivWlUE  >  -999)  DO  3EGIN 
GET (Gl^HI ST) ; 

IF  EGF(ORNHIST)  THEN  HS69; 
IF  J  >  18  THEN  EXIT(6ETG1WN6E); 
IF  TESTVALUE  (  -999  THEN  EXIT(6n3RAN6E) ; 
0LD0XY[1J]:=  0XY[1,J3; 
QXYI1,J]:=0RNHIST"; 
GET(OiMilST): 
0LD0XY[2,J]:=  0XYI2,J]; 
0XY[2,J]:=CRNHIST^ 
J:=J  +  1: 

^V«ORfiNGE:=  J  -  1; 
END; 
END; 

3EGIN    {  -novel  t  } 

GETBLUE; 

8LUEM0UE:=BLUE}WE  +  1; 

GETGRi^NGE; 

0Rf:M3£MOyE:=O(WW:EMa;E  +  1; 

TFLAG6:=TRUE; 

GRAF?LA6:=TRUE; 

GET(ATIK£) ; 

DELTAT:=ATIME^ 

TIH£:=TIME  +  DEL7AT; 

BLrLAG:=TRUE; 

E:<IT(A0<.'1FART)  ; 
END; 

procedure  menu; 
<;ar 

CH:  Cri^R; 
BEGIN 
IF  ijRAFFb^G  'HEN  BEGIN 

Gf^MODE: 

TEXT:=  FALSE; 
£MD 
EL3£  BEGIN 

TEXrr^COE; 

TEXT:=TRU£; 
END; 
REPEAT 

OKSET:=C'A','a','Q'/q']; 

C'OTiX<Y(9,3);CRT(ERAS£0S); 

30T(3XY(3,5); 

i^RITELNC    A)    Advance:    iw/e  shios  to  new  positions  based  on  tiine-stepO 

i^RITELNC     Q)     Quit      :    return  to  prcor-ajn's  ^jutsr  ieve!   '); 
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NRnELN;WRITELN;WRIT£LH: 

WRITEbNC  mi    ••M  'ESC'  KEY  TO  TOGGLE  BETWEEN  TE<T  fUd  GRAPHICS  mi  '); 

CH:=6ETCWR(0KSET+  [CHR(27)  ,CHR(3)  ,CHR(21)  ,aiH(32)  ]) ; 

CRT(ERASEOS) ; 

IF  CH=CHR(8)  THEN  CH:='R';    {  le^t  arrow  )  rsduce  scale  ) 

IF  CH=CHR(21)  THEN  CH:=' I' ;  {  rigtit  arrow  >  increase  scale  } 

IF  (CH=CHR(27))  iW  (TE<T)-TH£N  BEGIN 

6RAFH0CE;  TEXT:=FALS£; 

CH:='Z'; 
END: 
IF  (CB=CHR(27))  fm  (NOT  TEXT)  THEN  3E3IN 

TE<T)100E;  TE<T:=TRIJE; 

END; 

i:ase  CH  CF 

'A', 'a':    MGUEIT; 
'R'        :    BEGIN 

DGWSCALE; 
3LFLAG:=TRUE; 
TFLAG5:=TRUE; 
E<IT(AOyiPART); 
END; 
'r        :    BEGIN 

UPSCALE: 
BLFLAG:=TRUE; 
TFIj^G5:=TRUE; 
EXIT(ADVIPART); 
END; 
:    BEGIN 

RCTRFLAG:=TRUE; 
Tn>a35:=TRUE; 
EXIT(AiX'l?ARD; 
END; 
END; 
IF  (CH  =  'R')  OR  (CH  =  'I'i  OR  (CH  ='  ')  THEN  BEGIN 

•oRAfMOCE;  TE:<T:=  =ALS£; 
END; 
!MIL  CH  IN  [   -Q'/a'  1; 
'E:<TM0DE;  TE:<T:=TRUt; 
TLAGo:=TRl;E; 
END;      (    -aenu    ) 

BEGIN  (  advloart  ) 
(5$R  TURTLE6RAPHICS5() 
(J$R  THESISeS) 

TEST^v-ALUEj^e; 

TFLAe5:=fALSE; 

MENU; 
END;      {    adv!    } 
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BEGIN  {  case  ) 

IF  TFb^G?  THEN  CIRCPART; 

IF  TFIA65  THEN  t^WlPART; 
END; 

SEGMEKT  PROCEDURE  ADViWE; 
'M  T6T:  INTEGER; 

PROCEDURE  H0»;EIT; 

UAR  i,OELTATL£N:  INTEGER; 

N£l*<..SEiff:  PAC<EO  ARRAY  [1..19]  OF  REAL; 

SUCCESSFUL:  BOOLE-^; 

SPEED:  REAL; 

PROCEDURE  GETDATA; 
iJAR  J:  INTEGER; 

BEGIN 

J:=l; 

RESET  ( OfWa^E ,  '  S5 :  Of^GNOW .  DATAO  ; 

SUCCESSFUL :=  c IORESULT=^) ; 

IF  NOT  SUCCESSFIX  THEN  E:<ITrGETDATA) ; 

WHILE  mi  EOF(ORNGAMD)  m  (J  (=  18)  DO  BEGIN 

OLDOXYI1,J]:=  0XYC1,J3; 

0XY[!,J3:=OWG^*; 

0RNHI3T*:=0XYn,J3;  PUT(Cf^HIST) ; 

GET(CRNGf^) ; 

0LDOXYI2,J]:=  0XY[2,J3; 

CXY[2,Jj:=0RNGeWE^ 

GRNHIST*:=OXYC2,J3;  ?UT(CRNHISr/ ; 

3ET(QR^ffi<^E) ; 

J:=.J  +  1; 
END; 

?^CR^GE:=  J  -  1; 
aOS£(ORNG^E,LXK); 
ORNHIST":=  -9999;  P'JT(GRNHIST) ; 
END; 

PRLXEDURE  CHNGOISK: 
3EGIN 
SUCCESSFUL :=  TRUE; 
REPEAT 

TE<TMODE;  TE:<T:=  TRUE; 

GOT0XY(3,3);  CRT(E»^SEOS) ; 

G0TOXY<8,3); 

WRITELNC  !!!     FdLi^l  THESE  INSTRUCT  I CNS    "I     '); 

i4RITELN; 

WRITELN; 

IF  NOT  SUCCESSFUL  THEN 

WRITELSCI  ERROR  -WS  GCOJRED  ;4HIL£  TRYING  TO  READ  DATAFILE  GN  DISK  «2  V) ; 
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?IRITELN('  1.    REMOVE  G^^^  DISK  FROI  DRIVE  H  2  ')] 

WRITFlN; 

i^lRITELNC  2.    EXCHf^GE  DISKS  WITH  OPPflhCNT    ') ; 

WRITELM; 

WRITELNC  3.    PLACE  OPPtMNT^S  UPDATED  C^E  DISK  IN  DRM  »  2  '); 

WRITELN; 

wRITELNC  (    PRESS  RHURN  WHEN  READY    >    '); 

WRIT£U^;READLN; 

GETDATA; 
IJNTIL  SUCCESSFUL: 
ORrtCefOVE:=ORWGEmvfE  +  3; 
3LL£H0VE:=8LUEM0VE  +  1; 
END; 

BEGIN    (  nsoveit  ) 
TEXTW]DE;TEXT:=TRUE; 
DELTATL£N:=2; 
GOTCXY(8,3);CRT(EPASE0S); 
G0TaXY(8,2): 
WRITELN; 

WRITELNC      Enter  desired  tii»e  steo  {  DELTA  T  }  for  the  first  mwe/); 
WRITELN; 

WRITEC  m  minutes  (9-9?):     ')  ;GETMEGER(DELTAT,D£LTATL£N); 

WRITELN; 

IF  OLDGrtiE  THEN  REWRITE  (AT  IHE,  'S4:TWE.0ATA') ; 
OLDaviE:=FALSE; 
ATII€^=DELTAT;  P!JT(ATIME): 
xEWRITE(8LlJG«iE,  '#5:BLUEN0W.DATA'); 
FOR  I:=  1  TO  -i^BLUE  DO  BEGIN 

SPEED  :=i5SF0r  im  CaTAT/o0 . 3) ; 

NEWXI 1 3  :=8XY[  1 ,  n+(SPEED«.3?SIN(GCJS[  I  ]) ) ; 

OU}SX'f[l,I]:=  BXYIhlj; 

BXY[!,I3:=  MEWXIH; 

SL'JGhT^E"  :^iE>£<  [  I  j ;  PUT  ( 3l\m*B  : 

BLiJHIST^=*e£<[  I  ]  ;P!JT(BLl^IST) ; 

NEWY[I]:=8XYi2.:]+(SPEED3f2.?2KOS(GCUSII3)): 

3LDBXY[2,:j:=  3X'rr2,I3; 

3XY[2,Ij:=  Ne^[:]; 
3LUGAHE^=*elY[I3;?iJT(BLUGW€)  ; 

SLUHIST-^ :=NEWY[ I ]  ;P!JT(BLUHIST)  ; 
END: 

3Ll]HIST*:=-9??9;  PUTCBLUHIST) ; 
a0SE(8LUG.VE,L0CK); 
CJ^^ISK; 
TFLAGa:=TRUE; 
3RAFFLAG:=TRUE; 
TIME:=TIhE  *  DELTAT; 
BLFLAG:=TRUE; 
EXIT(ADVANCE) ; 
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END; 

PROCEDURE  CJiJGDATAd:  I^fTEGER); 
iM  3P0,SP0L£N,CyS,aJSLEN:  INTEGER; 

SE6IN 

SP0L£N:=2; 

CUa£N:=3; 

CUS:=R0UNO(GCU3[I3  ?  139  /  PI); 

SPO:=ROUNO(GSPD[I]); 

WRITELN;WRITELN; 

WRITELNC  ALL  NUMERICAL  INPUT  IS  INTEGER!!  '); 

WRITELN; 

WRITEC  Course:   (8-349)  '); 

REPEAT 
3ETINTE6ER(CUS.CUSLEN); 

UMTIL  (OiS  :■=  3)  f^«)  (OJS  <=  349);  ;€ITELN; 

3CUSm:=  CUS  i  PI  /  139; 

WRITEC  Speed  :   (9-48)   '); 

REPEAT 
GETINTEGER(SFO,SPDL£N); 

UNTIL  (SPO  >=  3)  mo   (SPO  <=  49) ;  WRITELN; 

8SP0Cn:=  SPD; 
END; 

PROCEDURE  SHOWDATAd:  INTEGER); 
iJAR  YE^O:  SHCFCWR; 

f^S:      CHAR; 
BEGIN 

YESNC:={'Y','y','N','n']; 

^EXT!1C0E;  TEXT:=  TRUE; 

GCT0XY(3,a);  CRTCE.i^SEOS) ; 

C-OTGXY(9,3); 

WRITEC    Ship    »        :  ")  ;WRITE(I-!)  ;.wRITELN; 

>iRITE('  X  Coordinate:  ') ;HRITE(aClN0(BXY[2,I]  /  2.3  )); 

'^RITELSC  ,T>iies  ') : 

i^RITE^'  Y  Gcordinate:  O  :WRITE(R0UMD(3)(Y[2,I]  /  l.?2  )): 

;sRITELN('  niiles  '); 

WRITEC  i::ourse 

wRI'l'ELNC  ae^P'^es  ') 

'i»iRITE('  Speed 

WRITELNC  'Knots  '); 
WRITELN;WRITELN; 

i^RITEC'  Anv  chances  (Y/>0  '>  '^  ;AN3:=  6ETCH^R(YESN0  +  [CHRdS)!)  :«RITELN: 

IF  (ANS  =  'V)  OR  (AN3  =  'yO  THEN  CW^DATAd) ; 
END; 

PROCEDURE  fiODALL; 
3E3IN 
TEXTMQDE:  TE:<T;=  TRUE; 
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'):!€ITE(ROUND(GaiS[I]  i  188  /  ?!)); 
');J€ITE(R01M)(3SPD[I3  )); 


FOR  T3T:=!  70  ?W<BLl£  00  SEGIN 

SHCNDATAaGT) ; 
END; 
END; 

PROCEDURE  MOOCNE; 
WR  TGTLS^:  INTEGER; 
BEGIN 

!E<TMCD^E;  TEXT:=  TRUE; 

TGTLEN:=1; 

SCTQXY(9,a);  CRKERASECS) : 

G0T0XY(3,3); 

WRITELNC       Enter  nunber  o^  shio  whose  o^,jmeter3  you  mih  to  change  '); 

WRITELNC  (8-9)   '): 

REPEAT 
G£TINTEGER(TGT,TGrLEN); 

IWTIL  (T6T  >=  9)  f^O  (TGT  <=  9) ; 
WRITELN; 

3HCWDATA(T6T+ 1) ; 
END; 

PROCEDURE  VIEWIT; 

CH:  CWR; 
BEGIN 
TEXTMOOE;  TEXT:=TRUE; 
REPEAT 
OKSET:=['A'./B','a^.'b','Q','q']; 
G0T0XY(9,a);CRT(ERASECS); 
GaT0XY(9,3); 

><RITEIN;WRITELN:WR1TELN:WRITELS; 
WRITELNC    A)    yiew  /  Modify  all  ships^  parameters  '); 
WRITELNC    3)    Uiew  /  Modify  one  ship's  oararaeters  '); 
WRITELNC    3)     Quit      :    return  to  srevious  inenu    ') ; 
'WRITELN;i4RITELN;WRITELN; 

'i^ITELNC  m<    'JSE  "ESC*  :<EY  TO  TOGGLE  BETWEEN  TE<T  f^D  GRAPHICS  }Ui  ') ; 
CH:=<5ETC!^R(0KSET+  [CHR<27)]); 
CRT(ERASEOS) : 

IF  ';Ctt=CHR(27))  m  (TEXT)  THEN  3EGIN 
3!^F^'00E;  TE:<T:=fALSE; 
CH:='2'; 
EM) 

ELSE  IF  (CH=CHR(27))  m   (NOT  TEXT)  THEN  3E3IN 
TE<THGDE;  TE<T:=TRUE; 
CH:='2'; 
END; 
CASE  CH  OF 

A', 'a':  ^^CDALL: 
'S'/y:  '^OD(M; 
END; 
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l^IL  CH  IN  [  'Q'/q'  ]; 
END;   (  viewit  } 

PROCEDURE  MEMU; 

CH:  CIW?; 
SEGIN 
IF  GRAFFLAG  THEN  BEGIN 
Gf^F^!OD£:  TE<T:=FALS£; 
6RAFFUG:=FAL3E; 
END 
ELSE  BEGIN 

TE:^T^HJOE;  TE)Cr:=TRyE; 
END; 
REPEAT 
OKSET:=t'A'-./S','a'..'b'/Q','g']; 
3QT0X"r(9,3);CST(£HASE0S): 
GOT0XY(8,5); 

i^ITELNC    A)    View      :    oresent  ship  positions,  courses,  and  3oe«ds  ') : 
WRITELNC    B)    Advance:    OTve  ships  to  new  positions  based  on  titne-step'); 
i^ITELNC    3)     3uit      :    return  to  orograin's  outer  level  '); 
«fiITELN;!MRITELN;««ITELN; 

WRITELNC  m<    USE  'ESC*  KEY  TO  TOGRE  BETWEEN  TEXT  Mi  GRAPHICS  }m  ') ; 
CH:=6£TCHAR(0KS£T+  [CHR(27) ,CHR(3) ,CHR(2I) ,CHR(32) ]) ; 
CRT(ERASEOS) ; 

IF  CH=CHR(8)  THEN  CH:='R';    (  le^t  arrow  )  reduce  scale  ) 
IF  CH=CHR(21)  THEN  CH:='I';  (  right  arrow  >  increase  scale  ) 
IF  (Ctt=CHR(27))  fW  (TEXT)  THEN  BEGIN 
GRAFHCOE;  TEXT:=FAL3E; 
CH:='Z'; 
ENO 

ELSE  IF  (CH=<:HR(27))  m  (NOT  TEXT)  THEN  BEGIN 
TE<T?10DE;  T£<T:=TRUE; 
CH:='2'; 
END; 
CASE  CH  OF 

'A'. 'a':  yiENIT; 
'B'j'b':  WJEIT; 
'R'-        :    BEGIN 

DCI>*iSCALE; 

SLFb^:=TRU£; 

TFLA65:=TRU£; 

TFLA6<s:=fALSE; 
EXITCADy^CD ; 
END: 
'I'        :    BEGIN 

UPSCALE; 
3LFLAG:=TRUE: 
TFLAG5:=TRUE: 
'FLAG6:=FAL2E; 
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EXIKADW^CE) ; 
END; 
:    BEGIN 

RCTRFUG:=TRUE: 
TFLAG5:=TRUE; 
TFLAGo:=FALSt; 
EXIKADUf^E) ; 
END; 
END; 

IF  (CH  =  'RO  OR  (CH  =  T)  OR  (CH  ='  ')  THEN  BEGIN 
GRAFHODE;  TE<T:=  FALSE; 

IMll  CSi  IN  [  'Q'/q'  ]; 
TEXTWDE;  TEXT:=7RUE; 
TFLAG6:=TRUE; 
EXIT(AD<J<^CD ; 
END;   (  njenu  ) 

BEGIN  {  advance  } 
(SIR  TURTLEGRAPHIC3X) 
(*$R  TR(WSCEND)() 
{(■5$R  THESIS9X)) 
TFLA65:=FALSE; 
TFLAG4:=TRUE: 
MB^U; 
END:   {  advance  ) 
SE!^EhfT  PROCEDURE  CPA; 
i.-AR  TARGET  1,TARGET2:  C:-^R; 

X81,Y81,Xn,Yll.DXl,DYl.X82,Y92,X12,yi2,0X2,DY2:  REAL; 
BEARfNG,CCURSEl,':t3URSE2,TGTl,ToT2.I.;<Xl,XX2,YYl,rf2:  INTEGER; 
CPAT,i;Xl,'v^2.Wl,'/f2.a'Sl,CUS2,T:  REAL; 
DIST,DEN0«,SPOl,SP02,DX,DY,D*;X,0'JY:  REAL; 

PROCEDURE  3FEED(DX,DY:  REAL;'v!AR  SPO:  REAL); 
BEGIN 

DIST:=SQRT(SQR(DX)  +  SQR(DY)); 

3Ft):=  DIST  /  OELTAT  *  08; 
END; 

Filler I  ON  }EGREES(DX,DY:  REAL)  :  INTEGER; 
CONST  ERR  =  a.3i; 
'JAR  'J^UE:  IhfTEGER; 
BEGIN 
IF  (DX  <  (9+ERR))  f^D  'DX  >  (a-ERR))  THEN  BEGIN 
IF  (DY  <  (8*£RR))  ^D  ^DY  >  ';9-ERR))  THEN  DEGREES  :=  li; 
IF  DY  >  9  "HEN  DEGREES  :=  139; 
IF  DY  (  9  ^HEN  DEGREES  :=  3^3; 
EXIT (DEGREES) ; 
END; 
IF  (DY  <  (9+ERR))  fW  DY  >  (8-ERR))  THE^i  BEGIN 
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IF  DX  >  i  THEN  DEGREES  :=  279; 
IF  OX  <  i  im\  D£6f?£ES  :=  ^99: 
EXIKDEGREES); 
END; 

mUE  :=  RCIIND(138  /  PI  i  ATtW  (DX/'DY)); 
IF  ABS  (VALUD   (>  'JALUE  THEN  8E3IN 
IF  DX  {  3  THEN  DEGREES :=  138  +  'Mj£i 
IF  DX  >  9  THEN  C£GREE3:=  269  +  VALUE; 
END 

ELSE  BEGIN 
IF  DX  >  3  THEN  DEGREES  :=  168  *  WLUE: 
IF  DX  (  8  THEN  DEGREE3:=  WUJE; 
END; 
END; 

PROCEDURE  TYPEl; 
BEGIN 
TGTl:=0RD(TAR6ni)  -  0RD('3O; 
T5T!:=TGTI  ♦  1: 
X81:=aDBXY[l,TGT13; 
Y9I:=i]LDaXYI2,TGTl]; 
Xn:=8XY[!,TGTl]; 
Y11:=3XY[2.TGT1]; 
DX1:=  X81  -  XI 1; 
DYI:=  Y81  -  Yll; 
END; 

PROCEDURE  TYPE2; 
BEGIN 

IF  TAR6ET1  IN  i'V./.j':  THEN  TGT1:=0RD(TAR6ET1)  -  ORD('a')  ELSE 

TGT1:=0R0(TARGET1)  -ORO('A'); 


T5T 
X91 
Y81 

xn 

Yll 

OYl 
END; 


:=TGT1  *  1; 

=(!LD(r<Y[l,TGTI]; 

=0LDCXY[2,TGT1]; 

=QXYr:.TGTi3; 

=0XYI2,T6T1]; 

=  X91  -  Xll: 

=  Y81  -  Yll; 


PROCEDURE  TfPES; 
3E3IN 

TGT2:=0RDaAR6ET2)  -CRD('9'); 

TGT2:=TGT2  t  i; 

X82:=0LD8XY[1,TGT2]; 

Y92:=0LDaX7[2,TGT2]; 

X12:=eXYri,TGT2]; 

Y12:=8XY[2,TGT2]; 

DX2:=  X82  -  X12; 

DY2:=  Y82  -  Y12; 
END; 
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PROCEDURE  TYPE4; 
SEGIN 

IF  TAR6ET2  IN  ['.a'..'j']  THEN  T5T2:=GRD(TAfiG£T2)  -  OfiD('i')  ELSE 

TGT2:=i]RD(TARGET2)  -GROCAO; 

TGT2:=TGT2  +  1; 

X92:=OLCOXY[1,TGT23; 

Y82:=0LDCXYI2,TGT23; 

X12:=0XYn,TGT2}; 

YI2:=QXYt2,TGT2]; 

DX2:=  Xa2  -  X12; 

DY2:=  Y92  -  Y12; 
END; 

PROCEDURE  DR<^LINE3; 

UAR  X1,Y1.X2,Y2,DX,DY,3P03:  REAL; 

3EGIN 

GRAfHCOE;  TE<T:=  FALSE; 

PEhO.0R(NQNE) ; 

XX 1  :=ROlt^D(  (X 1 1-XCTR)  /SCALD  *  148 ; 

YYl  :=«GtM)(  (Y 1 1-YCTR)/SCAL£)  +94; 

MO'vETO(XXl,YYl): 

?ENCXCR(>jHITD  ; 

;C<1:=ROUNO<XX1+(T"^/<152.3/SCALE)) ; 

rn  :=ROUNO(YY  1+ (TJVY  13{  1 . 92/SCALD ) ; 

X1:=((XX1-148)3(3CAL£)+XCTR; 

Yh=(mi-94)JSCALE)+YCTR; 

«GlETO(A':<:,rvD; 

?ENCOL0R(N0NE) ; 

XX2:=RG}JN0(  (X 12-XCTR)  /SCALD  M48 ; 

YY2  :=R01M)(  (Y I2-YCTR)  /  SCALD +?6 ; 

H(]<.-ET0(XX2,YY2); 

PENCGLaR(WHITD ; 

XX2:=R0l^0(XX2+'m^252.3/SCALD ) : 

rf2:=RClJN0(YY2+(TJVY2i{  1 .72/SCALD ) ; 

X2:=(  (XX2-149)  ^SCALE--  +XCTR; 

Y2:=<  CfY2-?6)  -^  SCALD  +YCTR; 

Ma'ETC(XX2,fYZ!; 

PENC3L0R(NGN£) ; 

DX:=ai-X2)  /  2.3; 

DY:=0r;-v2)  /  l.?2; 

8EAfiING:=  DEGREES ( DX. DY) ; 

S?EED(DX,jY.SFD3); 

FOR  I:=  !  TO  3889  00  3E3IN 
I. -=1+1; 

END: 
END: 

^RCCECURE  ^'E^3AGE:: 
BEGIN 
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TEXTMOOE;  TEXT:=  ^RUE; 
i30TGXY(9,3);CRT(£RASECS); 
60T.a:<Y(9,6); 

WRITELNC     Net  enough  data  to  compute  CPft  '); 
;4RITELN;WRITELN;WRIT£LN: 
WRITELNC       <  PRESS  RETURN  TO  CONTINUE  >      ') ; 
READLN; 

TFLAG3:=FAL3E; 
TF!J)G4:=  TRUE; 
EXIT(CPA) ; 
EhiD; 

PROCEDURE  MESSAGE2; 
BEGIN 

TE<TTODE;  TEXT:=  TRUE; 

i30TOXY(9,9):CfiT(ERASEOS); 

50T0XY(8,6); 

WRITELNC       The  time  to  C?A  tpot  'JARGETl,'  to  ',TAR6ET2,'  is    :  ') ; 

WRrELN; 

WRITELNC         ',,R0UN0(T5f63),'  MINUTES  '); 

WRITELN: 

WRITELNC       The  range  and  twaring  ^roo  'JARGETI,'  to  ',TARGET2); 

WRITELNC  '  at  that  ti.ne  will  be  :    '): 

I^RITELN; 

mnim'  ',S0UN0(DI3T),'  ulles  --  bearing  ', BEARING/  degrees  ') ; 

;^RITELN:WRITEI>i:tHRITEL><; 

WRITELNC  <  PRESS  RETURN  TO  OMINUE  >      ') ; 

HEAOL^^; 

TFLA63:=FALS£; 

TFLAG4:=TRUE; 
END; 

FRCCEDURE  r«ESSA6£3; 
3E6IN 

"E:<T?1C0E:  TEXT:=  TRUE; 

3GT0XY(3,3);CRT(£RASE0S); 

i30TQ;<Y(9,6); 

NRITELNC        Taroet  S  'JARGETI/  and  target  it  'JARGET:  ); 

WRITELN; 

S^ITELNC       have  Darallei  ■our'jes  ^ith  the  same  soeed  I   ') ; 

:-iRITELN;t'lRITELN:i^Rr£LN; 

WRITELNC  (  PRESS  "^im  TO  CONTINUE  )      ') ; 

READLN; 

^FLA63:=FALSE; 

■Pj^G4:=TRUE; 

EXIT(CPA)  : 
END; 


BEGIN  (  CPA  } 
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(SfR  TliRTLEol^PHICSD 

a$R  THESIS8J) 

IF  CtiJ^NGtHWE  (=  1  THEN  MESSAGE  1; 

GRAP-^COE;  TEXT:=FALSE; 

0KSET:=['3'./9'/A'..'J'",'a'..'j'j; 

Bir<S7R!NG(3,2/      CPA:    LETTER  /  NIMBER  i3^  1ST  SHIP      '); 

TARGET  1:=6ETCWR(0KSET); 

IF  TARGETl  IN['9'./9'jTHEN  TYPEl  ELSE  r»'P£2; 

DX1:=0X1  /  2.3; 

DY::=0Y1  /  1.92; 

CQiJRSEl:=C£GRE£3(DXl,DYl); 

CUSh=COl'RSEl  i  ?!  /  139; 

SPEED(DX1,DY:,SPD1); 

yXl:='5P01  'i  SIN(CUSD; 

VYlr-SPDl  i  CGS(CUSl); 

B0XSTRING(3,2,'      CPA:      LETTER  /  NUTIBER  :3F  2ND  SHIP    0; 

TARGE^2:=GETC!^R(QKSED; 

CLEARBOX; 

IF  TAR6ET2  IN['8'..'9']THEN  TfPES  ELSE  TYPE4; 

0X2:=0X2  /  2.3; 

DY2:=0Y2  /  l.?2; 

CQURSE2:=CEGREES(DX2,DY2) ; 

CUS2:=C0URSE2  i  Pi  /  189; 

SPEED (DX2,DY2,3P02); 

';X2:=3P02  i  SIN(aJS2) : 

W2:=SF02  i  C0S(CUS2) : 

DX:=(Xn  -  X12)  /  2.3; 

OY:=vYll  -  'fVD  /  1.92; 

D<,'X:=W1  -  ';X2; 

D<.'Y:=W1  -  W2; 

DOffiM:=  S3R(C*,'X)  +  3GR(DW): 

IF  DENQM  =  9  THEN  f^SSAG£3; 

T:=  -(DXIDVX  +  0Y5E0W)  /  (SQR(DVX)  +  SQR(DVY)); 

IF  T  (  9  THEN  T:=  9; 

C?AT:=  TIME  +  T; 

DRAWL.70; 

MES:3A6E2: 
EHO; 

SE'SMENT  PRGCEDIJRE  MOVEHENT; 
vAR    CH:  CHAR: 

X,Y.TYME,TARG£T,.iCUS,jT:  INTEGER; 

DIRECT  I GN.  COURSE,  SPEED, HSPD:  .REAL; 

NCTTfET.^RACE;  300LEPW; 

PROCEDURE  DISPLAY; 
vAR  :<,Y,J:  INTEGER; 
3EGIN 
INinURTLE; 
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FijR  J:=l  TO  rVlXBLJE  DO  BEGIN 

X;=fiGl^D((E<Y[l,J]-;<CTR)/SCjiLD  +  I49; 

Y  :=ROtJND(  ( E<Y[  2 ,  J3-YaR)  /SCALE)  +?6 ; 

MO<.'ETO(X,Y>; 

DIVWBLCCK(SHIPf !G,2,3,a,7,S,X,Y, 19) ; 

NiiieLR(X,Y,J); 
END; 
FOR  J:=  1  TO  HAXORhNGE  DO  BEGIN 

X:=RGUND( (OXYE 1 , J]-XCTR)/SCALE) + 149; 

Y:=R01M)( (0XY[2,J3-YCTR) /SCALE) +96; 

MOUETOlX,Y) : 

Df¥W8LaCK(SHIPFIG,2,3,9,7,3,X,Y,5) ; 

LETTER(X,Y.J); 
END; 
SRAFHOOE;  TEXT:=fALS£; 

PHCCEDURE  MESSAGE i; 
BEGIN 

aEARSOX; 

60TCXY(9,3);  CRT(ERASEOS); 

G0TaXY(9,6): 

WRITELNC    Not  encuoh  jata  to  comcute  course  /  speed  '); 

Wfi!TELN:HRITElh:lNRITELN; 

WRITELNC        <  PRESS  RETURN  TO  COKTINUE  >    ') ; 

TECn-COE;  TEXT:=TRUE; 

NOri'ET:=TRU£; 

REAOLN; 
END; 

PROCEDURE  jEHGT; 
^m  TGI:  C-^R; 
SEGIN 
0KSET:=['9'..'9','A'..'J',''3'..'j']; 
8CXSTRING(3,2/  M^^EJ^-ENT:  ;^0V£  WHICH  SHIP  (e-9/A-J)^  '); 
TGT:=GETD*^R(OKSET); 

IF  (T6T  IN  ['A'. /J'])  CR  (TGT  IN  [^a^/j'})  THEN  SEGIN 
IF  OR/^iGEMOUE  <=  1  THEN  MESSAGE  1: 
IF  CSANGEMCvE  (=  1  THEN  EXIT(G£TT3T) ; 
IF  TGT  IN  I'A'./J']  'HEN  >frARGET:=i3R0(TGr;-3RD('A')  +  l  ELSE 
MTARGET  ;=CPDaGr-  -*jRD( '  a'  H  • ; 
iiFLAG:=TRUE; 
T=lAG2:=fALSE; 
E<IT(MQ»;£ME>fr) ; 
END: 

TARGET :=CRO(TGT)  -  3RD('3')  +  i; 
END: 

PROCEDURE  GETCuURSE; 
'M  .iJSLEN.aiS:  INTEGER; 
BEGIN 
CUSL£N:=3; 
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REPEAT 
BCXSTRING(3.2,'  :-flMMENT:£hfTER  DESIRED  COURSE  (8-3o8)   '); 
GETINTEij£R(CU3,CUSLE>^) ; 

UNTIL  (OJS  >=  8)  Mi  (CUS  <=  368); 

MruS:=ai3: 

CGURS£:=a'S  5  PI  /  J88; 
END; 

PROCEDURE  3ETSPEED: 
^m  SP0LEN,3PO:  IhJTEC-ER; 
BEGIN 

SP0L£N:=2: 

REPEAT 
30XSTRIN6(3,2,'  fWEMENT:    ENTER  DESIRED  SPEED  (8-48)   '); 
3ETINTE6ER(SF0,3P0LEN) ; 

iliTIL  (SPO  }=  8)  f^D  (SPO  <=  48) ; 

MSPD:=SPO; 

SPEED:=SPO; 
END; 

PROCEDURE  GEHIME; 
VAR  TlfiatN:  IKTEGER; 
BEGIN 

TI^rELE^J:-2; 

REPEAT 
BCXSTRIM6(3,2,'  HO^'EMENT:  TIM£  STEP  (8-??)   IN  'ilNUTES  '); 
6ETiNTEG£R(TYHEJI^^EN); 

UNTIL  (TitlE  >=  8)  f^ND  iTi)^Z  i=  ??) ; 
END: 

PROCEDURE  Tft^CEON; 
i;AR  ^R:  C»R: 
BEGIN 

0K3ET:={'Y','v','N'/n']; 

3QXSTRING(3,2,''  HGV'B-ENT:  DO  YOU  WISH  TRACE  Hi  (Y/N)^  ') ; 

TR:=t3ETCHAR(0K3£T  *   [CHR(I3)]): 

IF  cTR  =  'YO  GR  (TR  =  'y')  THEN  TfiACE:=TRUE  ELSE  THACE:=FAL3£; 
Eh«); 

PROCEDURE  bT^; 
'JAR  ;<LEN:  INTEGER; 

XI:  REAL; 
BEGIN 

XL£N:=3: 

REPEAT 
BG<STRIN6(3,2,"WBiEHT:  DESIRED  X-COORDINATE  ■;3-198)^':' ; 
G£TI^frEG£R(X,;vL£^0; 

UNTIL  (X  )=  3)  .'^D  (X  <=  168) ; 

Xl:=  X  «  2.3; 

X1:=((X1-XCTR)/SCALE)+I48; 

X:=RG1U0(XI) ; 
END; 

PROCEDURE  GETY; 
';AR  YLEN:  INTEGER; 
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YI:  REAL; 

BEGIN 

YL£N:=3; 

RE.^T 
30XSTRING(3,2/M(Xe!ENT:  DESIRED  Y-COOSDIh*^TE  (8-188)?'); 
6ETINTEGER(Y,YLEN); 

UNTIL  (Y  >=  9)  AND  (Y  <=  188) ; 

Yi:=  r  s  l.'?2; 

Yl:=((Yl-YCTR)/SCALD+96,- 

Y:=RQl3sD(Yl); 
END; 

PROCEDURE  RELDIR; 
UAR  OIRLEN.DIR:  INTEGER; 
SE3IN 

DIRLEh^:=3; 

REPEAT 
3(KSTRING(3,2/  HOVEMENT:    DESIRED  DIRECTK^  (8-363)?  ') ; 
5£TMEGER(DIR,0IRL£N) ; 

'JNTIL  (DIR  >=  3)  m  (DIR  <=  348) ; 

,«Ci;S:=OIR; 

DIRECTICN:=  DIR  i  PI  /i89; 
BSD: 

PROCEDURE  RaDIST; 
im  DISTL£N,DI3T:  INTEGER; 

;<D,YD:  REAL; 
BEGIN 

DISTL£hh=3; 

REPEAT 
2tt<STRIN6(3,2/M0UEHENT:DESIRED  DIST^^CE  (8-388)  MILES'); 
iSETINTEC-ERCOIST.DISTLEN) ; 

IJNTIL  (DIST  >=  3)  .^  (DIST  <=  3«8) ; 

IF  DELTAT  =  8  THEN  DT:=49  aSE  DT:=CELTAT; 

MSP0:=6SP0[TARGET:; 

:<D:=  DIST  ?  3IN(DrR£CTIi>0; 

XD:=  XD  i  2.^  /  SCALE: 

X:=  ROtllO(XD) ; 

Y0:=  OIST  i  ■:OS(DIREaiQN); 

YD:=  YD  J  l.?2  /  :CAL£; 

Y:=  ROUND(YO) ; 
END; 

FROCEDHRE  DR^FIG; 
SEGIN 

?E^iCaOR(NC^€) ; 

CR/:*iBLaCK(3HIPFIG.2,3,3,7.3,X,r,29); 

SLH8ER(X,Y, TARGET); 
END: 

PROCEDURE  .^KEC:-f<G(C  :  INTEGER; 3  :  REAU ; 
v*AR  I:  :^iTEGER; 
m-.   CHAR; 
BEGIN 
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OKS£T:=C'Y'/y','N'/n']; 

FOR  I:=l  TO  :89e  30; 

TE;<TM00E;  TEXT:=TRUE; 

mm(9,d)',   CRT(£RA3£0S),- 

G0T0XY(8,3); 

WRITELNC  YOU  mJE  PROPOSED  A  COURSE  i  SPEED  rmi(^  FOR  TARGETS  ', TARGET-!); 

WRITELNC      ',C/  DEGREES   ',.^Ol^(S),'  KNOTS  '); 

muEm 

WRITELNC        DO  YOU  WISH  TO  MAKE  THIS  ClWfiJE  TO  THE  OATAEASE  ?  Cf/N)   ') ; 
)^S:=GETC:-^R<CKS£T  +  [CHR(13)3); 
IF  ANS  IN  CY'.'y-i  THEN  BEGIN 

SCUS[TARGET]:=aPI/lS9; 

GSP0ITARGET3:=S; 
ENO; 
END; 

PROCEDURE  W;E1; 
iM  ;<D,YD:  REAL; 

31,S2:  INTEGER; 
SEGIN 

GRAFHCDE;  TEXr:=  FALSE; 

GEHGT; 

IF  NOrrST  THEN  BEGIN 
h«3TYET:=FAL3E; 
£<IT(Ha'ED ; 

END; 

GETCOURSE; 

6ETSPEED; 

GEHIME; 

TRACEON; 

CLEARBQX; 

PEh«:aCR(NO<E) ; 

3 1  :=irCll^O<  ( 8XYI 1  .TARGET] -XCTR)  / SCALD  ^  149 ; 

32:=R01JHD(  (BXY[2,TARGET]-YCTR)/ SCAL£)  +  ?6; 

Ma.€TG(31,S2); 

{  io  Mth  to  get  new  xv  ) 

IF  THACE  THEN  FENCCLOR',WHITE) : 

XD:=  SPEED  /  68  i  TYME  J  3IN(CuURSD  /  SCALE  i   2.3; 

X:=  SGUNO(XD) : 

X:=X+81; 

'fD:=  SPEED  /  58  i  T/ME  I  C0S(C01JRSD  /  SCALE  i  1.92; 

Y:=  R0UN0<YD); 

Y:=Y+92; 

I10VET0(X,Y); 

DRWFIG; 

,1AKECHNG(MCUS,r^SPD) ; 
END; 

FRCCEDURE  ,WE2; 
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'^R  31,32:  IhfTEGER; 

DX,OY:  REAL; 
BEGIN 

6RAR1CDE;  TEXT;=fALSE; 

6ETTGT: 

IF  NOr/ET  THEN  BEGIN 
NarfET:=FALSE; 
£XIT(MCVE2)  ; 

EMC; 

3Er<; 

GETY: 

TFACECN: 

CLEARBCX; 

?ENC0L0R(NOe ; 

31 :=ROUNO( (BXYI 1 ,T^R6ET]-XCTR)/SCALE)+ 140; 

82:=RQiJND(  (BXY  [2,  TARGET  ]-YCTR) /SCALE)  +96; 

MWETQ(31,B2); 

IF  TRACE  THEN  rENCQLOR(WHITE) ; 

fiO*^0(X,Y); 

ORAWFIG; 
END; 

PRGCEC^RE  MGVE3; 
l^AR  31,32:  INTEGER; 
2EGIN 
6RAFM00E;  T£XT:=FhL3E; 

GETTGT; 

IF  mnn  then  begin 

NOTYE^:=pALSE; 

£XIT(M0VE3) ; 
END; 
RaOIR; 
3ELDIST; 
THACE'JN; 
CLBiRSOX; 
PEHCGL0R(N(»<E)  ; 

3 1  :=RGl^D(  ( aXY  [  1 ,  TAR6ET:-XCTR) /SCALD  + 149 ; 
B2:=R01M)(  (3XY[2,TAfiGETj-raR)/  SCALE)  +94; 
^.CUET0(91,22); 

IF  'RACE  THEN  =E?CaGR( WHITE) : 
X:=;<+91; 
■<:=r+S2: 
!i(]VETO(X,Y) ; 
OR«*iFIG; 

,^K£C.^G(MCL'S.^SPD) ; 
END; 

PROCEDURE  RESETFLAGS; 
BEGIN 
^WTYET:=FAL3E: 
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ft<FLAG:=fALS£; 
TFlji61:=fAlSE; 
TFLAt2:=  TRUE: 
IF  QRAFFIAG  THEN 
3EGIN 

GRAFWDE; 

8fiAFFLAG:=fAL£E; 

T£:<T:=fALS£; 
£>iO 
ELSE  SEGIN 

TEXTMODE; 

"EXr:=TnlE: 
END; 
END; 

BEGIN      (  -novement  } 
mn  ni8TL£GRAPHIC3X) 
(x$R  THESI£83f) 
mR  TRP^^SCEND3{) 
RESETFLAGS; 
SEPEAT 
OKSET:=C'A'./D','a'..'d'/Q','q']; 
GCT0XY(9,a);  Cf?T(£HASEOS) ; 

PRCMFATO,')  HOyEMENT:  *^isuallv  checK  wssible  positions  oi  :/our  ships') 
GQT0XY(i,5); 

fiovenent  using  Course,  Speed,  Time  ') ; 
tiove  >/our  unit  to  a  new  (X.Y)  position  '); 
Move  your  unit  relative  to  its  oresent  oosition  ') ; 
Clear  previous  itovements  from  the  screen  '); 
Quit  -  Exit  from  this  orocedure  '); 


WRITELNC 

A) 

WftlTELNC 

3) 

>IRITELN(' 

C) 

WRITELNC 

0) 

WRITELNC 

a) 

Wi»ITELN; 

WRITELNC 

[(-3 

WRITELNC 

[-)] 

WRITELN< ' ! 

[space] 

i^RITELNC 

lEsoJ 

Downscaie  disolay  ') ; 
Uoscale  disoiay  ') ; 
Recenters  display  ') ; 

'ccgles  di-:-plav  oetu;een  cext  and  oraphics  '); 
CH:=GETCf^(CK£ET+  :CHR(27)  ,CHR(3)  ,CHR(2!)  .CHR(32)3) ; 
CRT(£HA3EGS) ; 

IF  CH=CHS(S>  THEN  CH:='R':     {  !e-ft  arrow  >  red-jce  scale  } 
IF  CH=CHR(21)  THEN  CH:=' T ;     (  right  arrow  }  increase  scale  ) 
IF  (CH=CHR(27))  .W  (TC<T)  "rEN  3EGIN 
GRAR^CDE: 
TE<T:=PALSE; 
CH:=^Z'; 
£N0 

ELSE  IF  (C}KHR(27))  m  im  TE<T)  THEN  SEGIN 
TE<T!iOCE; 
TE<T:=TRUE; 
CH:='Z'; 
END; 
CASE  CH  OF 
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'A', 

'I' 

^!i?;El; 

'B', 

'b' 

?il3^;'E2; 

■  r' 

^MS; 

'D', 

'd' 

DISRj^Y; 

'R' 

BEGIN 

D!3t<SCAL£: 

BL-LAG:=TRUE; 

TfLAGl:=THUE; 

TFLAG2:=FALSE; 

E<IT(MOVEMENT) ; 
END; 

'I' 

•    BEGIN 
UPSCALE; 
BLFLAG:=TRUE; 
TFLAG1:=TRUE; 
TFLAG2:=fALSE; 

ExiKHoyeem ; 

END; 

/  / 

BEGIN 

RCTRFIAG:=TRU£; 

BLFLAG:=TRUE; 

TFLA61:=TRIJE; 

TFl>«32:=FAL3E; 

E:<IT(^!0l'Q1ENT) : 
END; 

EMD; 

'MIL  CH 

IN 

:  -Q'/Q'  ]; 

END; 

SEGJ©(T  PROCEDURE  '*WU'. 

•^m  Xl.Yi,X2,Y2.DIST(^E. SPEED. C!JS.DX,DY:  REAL: 

COURSE, 001, 302, PftlE:  INTEGER; 

TRACE:  5G0LE(^: 

;C</i7:  REAL; 

PI^CCEDURE  ai3TSP0(0X,DY:  R£AL;VAfi  0IST.3PD:  SEAU  ; 
BEGIN 

DIST:=  S3RT^3QR(DX)  +  3i3R(DY)); 

3F0:=  01 ST  /  OELTAT: 
END; 


F'MTIS^  DE6REES(0X.DY:  REAL)   :  INTEGER; 
CONST    ERR  =  9,91; 
'JAR  ivfALUE:  IKTEGLR; 
BEGIN 
IF  (DX  <  (a+EHR))  im  (DX  >  (8-ERR))  THEN  BEGIN 

IF  (OY  <:  O+ERR);  ^D  (DY  >  ^3-EHR))  TiiEN  DEGREES 

IF  DY  >  9  'HEN  DEGREES  :=  138: 

IF  SY  <  3  THSn  DEGREES  :=  3d8; 

EXIT (DEGREES) ; 


:=  3: 
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END; 

IF  (OY  <  (9+ERR))  AND  (DY  >  (3-£RR))  THEN  BEGIN 

IF  DX  >  9  THEN  DEGREES  :=  279; 

IF  DX  <  3  T}€N  DEGREES  :=  359; 

EXIT(D£GfiE£S) ; 

m.\£   :=  R01M)(138  /  PI  i  AT(^  (DX/'DY)) ;   • 
IF  ASS  Cv-ALUE)  O  ^JPL\£  THEN  5EGIN 

IF  DX  {  a  THEhi  DEGREES :=  188  ♦  Vi^LUE; 

IF  DX  )  8  THEN  DEGREES :=  26i   +  lW.'uE; 
END 
ELSE  BEGIN 

IF  DX  >  9  THEN  DEGREES :=  189  +  '^LUE; 

IF  DX  <  8  THEN  DEGREES :=  'VALUE; 
END; 
END; 

PROCEDURE  5ETTIME; 
UAR  TIMELEN:  INTEGER; 
BEGIN 
TI?^ELEN:=2; 
REPEAT 
3(KSTRIN6(3,2,'M0l-EiiENT2:  TIME  STEP  (9-99)  IN  ?iINUTES'); 
8ETINTEGER(r/M£JI!^£L£N) : 
UNTIL  (TYHE  >=  9)  fWD  umE  <=  ?9) ; 
END: 

PROCEDURE  TRACE'jN; 
V'AR  TR:  CWR; 
SEGIN 

CKSET:=['Y','v','N','n':; 

BQXSTRIN6(3,2,'MGVEh'ENT2:  DO  YOU  WANT  TRACE  m   (Y-^)?'); 

TR:=6tTC:4AR(CKSET  +  :CHR(!3)j); 

IF  (TR  =  'Y')  OR  I'R  ='•/)  THEN  TRACE:=TRUE  aSE  TRACE;=FALSE; 

m: 

PROCEDURE  NEWF03IT: 
'^R  "-i&IX.NEWY:  REAL; 
:E3IN 

;<X  := ( QXY  [  I  „^ARGET  1  -  xCTR)  .■  SuiL£+ 1 48 : 

'.'Y  := ( CXY  [  2  ..TARGET :  -rCTR) ,-  3CAL£r?6 ; 

N&IX:=  XX  +  (SPEED  *  TfWE  s  3IH(uJS)  i   2.3  /  SCALE) ; 

NEWY:=  ■■,'Y  '■   (SPEED  2  "fME  i  COS(aJS)  J  1.92  /  SCALD; 

001:=RCUND(N€M)O; 

GC2:=RQLND(N£WY) ; 
END; 

PRCCSURE  :*3!.'EIT; 
BEGIN 
GRAFh'CDE;  TE<T:=rALSE; 
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CLEAR80X; 
PENCGlCR(NIM)  ; 
M(?JET0(R0li<ID(>CO  ,RClJND(ri')) ; 
IF  ~mCz  THEN  PENCGLGa(WHITE) ; 
Ma-ETOC  00 1,002); 
PE><CGLOR(NQNE) : 

DR«<)eL0CK(SHIPFIG,2.3,3,7,8,001,0C2,5) ; 
L£nER(C01,002,MTAR6ET); 
END; 

BEGIN  f  nioveZ  ) 
(3($R  TURTLE6RAPHICSJ) 
(J$R  THESISfl.*) 
(if$R  TRANSCEND?) 

GRAR1CDE;  TEXT:=fAL3E; 

ftlFLAG:=PALSE; 

FLAG1:=TRUE; 

Xl:=aD0)(Y[!,.'<TAR6ET]; 

Yl:=CLC0XYC2,ffrARGET]; 

X2:=0XY[l,lfTARGET]; 

Y2:=<]XYI2.:iTAR6ET]: 

0X:=(X1  -  X2)  /  2.3; 

DY:=<Y1  -  Y2)  /  !.?2; 

Ca'RSE:=0E3REES(DX,DY); 

aJS:=  COURSE  .?  PI  /  138; 

DISTSP0(DX,0Y,DiST(^CE,3PEED) ; 

6Eni?-E; 

■HACEQN; 

NEWPGSIT; 

MCMEIT; 
END:  (  TOve2  > 
3EGHENT  PROCEDURE  RECENTER; 

PROCEDL'RE  RCTRPART; 
CO^ST    XC=140; 
YC=96; 
*vAR  J,SX,3Y,0X,i3Y:  IMTEGER; 
RCENTR:  C!*R: 

PROCEDURE  CASE,A; 
BEGIN 

J:=0RD(RCE^frR)-'JRD('9'■); 

J  :=.]+!: 

8X  :=R01JND(  ( BXYI 1 .  Jl-XC) /SCALE) +XC ; 

8Y:=«0ll^(  •;3XY[2.J]-YC) /SCALE)  +YCj 

XCTR:=RCUN0(BXY[1,J]); 

YCTR:=R0SJND(eXY[2,J]) ; 
END; 

PROCEDURE  ;>iSE3; 
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BEGIN 

IF  RCENTR  IN  ['A'./J']  THEN  J:=CRD(RC£rfrR)-CRO('A') 

£L=£  J:=CRD<RC£NTR)-GRD('a'); 

J:=J+1; 

OX:=fiCtJND(  (GXYI 1 ,  J]-XC)/SCALE)  +XC; 

OY  :=RGiJMO(  (OXY[2,J3-YC) /SCALE) +YC; 

XCTR:=R0tJND(0XY[l,J3); 

YCTR:=RClJNO(OXYr2,J3) : 
END; 

3EGIN  {  rscenter  ) 
(5$R  THESIS8J) 
mn  TUfiTLEGRAPHICS*) 
RCTRFLAG:=FALSE; 
eL^LAG:=TR!JE; 
3RAF*10D£:  TEXT:=FALS£; 

IF  (MAXCRi^GE  >  9)  mO  (MiiXSLL'E  )  8)  THEN  BEGIN 
GKSET:=C-3'..'?','A'./J','3'..'.j']; 
S(]XSTRiNG(3,2.''    RECE><TER  'Ji  WHICH  SHIP  (3-9/A-J)^      '); 
RCENTR:=GETCWR(OKSED ; 

IF  RCENTR  IN  i'r./r]  THEN  CASEA  ELSE  CASEB; 
ENO; 

IF  (WXBLUE  =  9)  THEN 
BEGIN 
0KSET:=('8'./9'3; 

BQXSTRING(3,2,'        RECEHTLR  !>i  ^HICH  SHIP  (9-9)?         '); 
RCENTR :=i3ETC*R(0KSET) ; 
CASEB; 
END; 

I?  (t^CRf^E  =  3)  THEN 
BEGIN 
0KSET:=('9'..'?']; 

BaXSTRING(3,2,'   RECENTER  ON  WHICH  SHIP  (9-9)^    '); 
:RCEHTR:=GETCmR(OKSE:) ; 
CASEA; 
END: 

INITTIRTLE; 

IF  MAXSL'JE  >  9  l^EN  5E5IN 
FOR  J:=l  *Q  lAXBLuE  DO  BEGIN 
3X:=^CUN0(!SXY::,J]-<CTR)/?CALH)^XC; 
5Y:=R0L»<0(  ^BX'i'I2,J3-YCTR) /SCALD  +YC; 
3RAt»8LGC:<(SHIFFI3,2,3,3,7,3,3X,3Y,19); 
Nli-BER(BX,3Y,J) 
END: 
END; 

IF  HAXORi^JGE  >  9  THEN  3E0IN 
FOR  J:=i  TO  :-^GRAN6E  DO  3EGIN 
ijX  :=ROLND<  ( OXYI I ,  J :  -XCTR)  /SCALE)  +XC ; 
0Y:=^CilJO((GXY[2. Jj-YCTR) /SCALE) +rC; 
Dfty«L3CK(3HIPFI3,2,3,3,7,3,0X,aY,5) ; 
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L£nER(CX,OY,J) 
END; 
END; 

DID: 

PROCEDURE  RERLMPART; 
i;AR  J:  INTEGER; 
TESy-iALUE:  REAL; 

PROCEDURE  STARTGRi^GE; 
SEGIN 
J:=l; 

TE3TVALUE:=«; 

RESETCCRNHiST,  '1t4:GRN6CLD.0ATA') ; 
WHILE  (NOT  E0F(0fM^I3T))  ^0  ',TE3TVALU£  >  -999)  -^D  (J  <=  !9)  DO  BEGIN 

QXY^,J]:=CR^^HI3T*; 

GEKORNHIST); 

QXY[2,J3:=a'^HIST*; 

J:=J+!; 

GET(OWHISD ; 

TES?^LUE:=0I9^HIST'; 

HAXGPJ^GE:=.J  -  1; 
END; 
END; 

PROCEDURE  STARTBIUE; 
5EG1N 
J:=l: 

TESTVALL!E:=9; 

RESET(BLUH!ST.  'tasBL'JEOLD.DATA') ; 
^^ILE  (NOT  ECF(3LUHIST))  »WD  i^ESPv'ALUE  >  -999)  m  ''J  <=  13)  DO  BEGIN 

3XYC1.J::=BLUHIST*; 

GET  (8LUHIST) ; 

S<Y[2,J3:=8LlJHIST"; 

J:=J*;: 

GEKSLUHIST); 

TE3Ti,'ALyE:=9LUHI3T"; 

?^BLiJE:=J  -  I; 
340: 
END: 

POCCECURE  ^ESETFLAGS; 
BEGIN 

CONTINUE :=FALS£: 

DBCALLED:=PALSE; 

CASE1:=FAL3£; 

TFLAG1:=PALSE; 

m:LAG2:=FAL3E; 

TFLA63:=fALSE; 

Tnj^64:=vAi.SE: 
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TFLA65:=FALSE; 
TRjiG6:=FALSE; 
TE<T:=TRUE; 
E^«); 

BEGIN  {  RERUN  ) 

3RfLA6:=TRUE: 
RESETFLAGS; 
C(KriNlJE:=TRUE; 
3LFl>iG:=TRl'E; 
I^CR<^6E:=9; 
GRAN6£M0UE:=«; 
BLyEHCVE;=«; 
SCALE :=1: 

INITTURTLE;  TEXTl^COE; 
(10S£(3LuMIST,L0CK); 
CLOSE (GRNHI ST, LOCK); 
START0R<^H3E: 

0R^*«3EH!M:=OR<^6EMa'E  +  1; 
STARTBLUE: 

3LUEM0s;E:=SLJEMa'E  +  1; 
?<ESET'>ATi!-£,  '44:TIM£.DATA'); 
T-ME:=ATIH£^ 
E>iD;     (  rerun  ) 


3E6IN  (  CASE  ) 
IF  RCTRFljiG  THEN  RCTRPART; 
IF  CASE  1  THEN  RLRINPART; 
ENC-: 

SEGHDfr  PROCEDJJRE  BOTTOHLINE; 
'^'AR  SCO  I  ST:  REAL; 
XT,XC,YC:  I^iTE5ER; 
3TIIiE,3XCTR.3'rCTR:  STRING; 

RROCEDtJRE  :-£AC€R; 

3EGIN 

(5($R  TURTL£GRAPHICS)() 

3RA.F^CD£:  ^E.<T:=i^ALc£; 

SLFLAG:=FAL3E; 

GRAFFlAG:=TRUE: 

PeC0L3R(^{CNE) ; 

WSTRINGf '  ') 5 

f^(?^'ET0(9,:34); 

?£NCOLaR( WHITE) ; 

ffi]*;£l"QC3,l?e); 

HG»;ETG(9,:87); 

3C0ISTj=  19/SCALEX2.72; 
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;<T:=«0!>iD(SCDIST) ; 
Ma'ET0(;<T,137); 
M,0VET0(XT,198); 
f^ET0(XT,I84); 
PEHCGLOR(^iOND ; 
MOVET0(XTt7,132): 
WSTRINGC:  18  ^    '); 
XC:=l?0UN0(XCTR/2.3); 
rC:=RCO<0(YCTR/1.52); 
STR(XC.SXCTR); 
oTR(YC,3YCTR) ; 

;^STRINS(3XrR)  :hSTRING(''  ,'')  ;WSTRING(SYCTR) ; 
/iSTRINGC:  CTR  ') ; 
WSTRINGC  TIKE:  '); 
STR(TIME.3TIf€); 
WSTRING(STI«D ; 
END; 

PROCEDURE  INTERCEPT; 

VAR    TGT,T3T2,CUSl.[)T,DTL£^^,IaiS:  INTEGER; 
T1,T2:  OifiR; 

CajRSEi,3PEEDl,Wl,Wl,X,Y,IX,IY.DIX,DlY,ISP0,DXI,:Y],X2,Y2:  REAL; 
PROCEDURE  TYPEl'J:  f^AR;  'JAR  DX,OY:  REAL); 
'.^AR  X1,YI:  REAL: 
BEGIN 

TGT:=0R0(T)-0RD('9O  +  !; 

Xl:=0LDBXY[l,TGT]/2.3; 

Y!:=aDK(Y[2,TGT]/l.?2; 

;<2:=9X'/[1,TGT:/2.S; 

Y2:=8X'fi2.TGT]/l.?2; 

DX:=(X1-X2): 

DY:=(YI-Y2); 
END: 

PROCEDURE  'YPE2(T:  CHAR:  '."AR  DX,DY:  REAL); 
'M  Xl.ri:  REAL: 
2EGIN 

IF  T  IN  ['a'..'i'l  THEN  'GT:=CRD(T)-0RD('3')*!  iLSE  TGT:=CRO(T)-ORD(''A'H1; 

Xl:=0L:0XYIi,To-^]/2.3; 

Y!:=ilD0XY[2,:5Tl/l.?2; 

X2:=C>X-f[:jGT:/2.3; 

Y2:=0XY[2,TGT]/1.?2; 

DX:=(Xi-<2) ; 

DY:=<YI-Y3; 
END: 

Fl>iaiCN  DEGREES(DX,DY:  REAU   :  IhfTEGER: 
CONST    ERR  =  3.31; 
Wr;  ^;ALUE:  I^^•EG£R; 
5E3IN 
IF  (DX  <  ^8+ERR))  ;^  (DX  >  (8-ERR))  THEN  BEGIN 
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IF  (DY  <  (9+ERR))  f^D  (DY  >  (3-£RR))  THE^^  DEGREES  :=  3; 

IF  DY  }  9  THE><  DEGREES  :=  138; 

IF  DY  (  9  THEN  DEGREES  :=  369 \ 

EX  IK  DEGREES) ; 
END; 
IF  (DY  (  (3+ERR))  ^  (DY  >  (8-ERR))  THEN  BEGIN 

IF  DX  >  a  THEN  DEGREES  :=  279; 

IF  OX  <  9  THEN  DEGREES  :=  999; 

£XIT( DEGREES) ; 
END: 

'JALJE  :=  ^0:i^0(lS9  /  ?I  t  AT^  (DX/'D'f)); 
IF  ABS  (WLL'E)  <>  WLUE  THEN  3EGIN 

IF  DX  <  9  'HEN  DEGREES :=  188  ^  'JfLUli 

IF  DX  >  9  THEN  DEGREES :=  3^8  +  UALL'E; 
END 
ELSE  BEGIN 

IF  DX  >  3  THe<  DE(3?EES:=  188  ^  i^ALUE; 

IF  DX  (  9  THEN  DE6REE3:=  VALUE; 
END; 
E>iO: 

PROCEDURE  MESSAGE; 
SEGIN 

5OTQXY(9,3);a?T(ERASE0S); 

GOT0XY(8,3): 

TEXTJiOOE;  TE<T:=TRUE; 

;«ITELN('    NOT  zHWm  DATA  TO  O^IPIJTE  INTERCEF'S  AT  THIS  TIME  '); 

i^RITELN: 

i^iRITELNC         <      PRESS  RETURN  TO  CCNTINUE    )'^^ :  SEAOL^; 

E<IT(BOnCHLIND ; 
END; 

PROCEDURE  HE3SAGE2: 
5EGIN 
GCTaXY(3,3);CRT(£RASEuS); 
G0TCXY(3.3); 
TE:<TW00E;  TEXT:=TRUE; 

WRITELN(-  :NTERCL°T:    THE  COURSE  .^D  :-PEED  REQUIRED  FOR  lMIT^  '  ,T2)  ; 
WRI^LNC  TO  INTERCE=^  'JhlTM  ',71/  IS:  '); 

WRHELN; 

WRITELNC  ',  ICUS/  DEGREES  AT  '  .RO'JNDdSPD)  /  .^OTS  '): 

WRITELM; 

I^ITELNC  DO  YOU  '.^^T  TO  .'^KE  THIS  C;-#<6£  TO  THE  DATA^iSE?  (Y/'H)' 

OKScT:=C'Y','y,'N','n']; 
T1:=GETCHAR(CKSET  +  iCHR(13)]); 
IFTI  IN  I'Y'/y']  THEN  3EGIN 

SCUS[TGT23;=iaJ3?PI/188; 

3SPDITGT23:=ISPD: 

WRITEU-U'  C-^GE  'HAS  3EEN  .-^DE  !   ') ; 

>IRITELN; 


96 


WRITELNC  <    PRESS  RHURN  TO  OKTINUE    >      0  jREADm? 

SEGiN 

(3($R  THESIS0I) 

(HR  t:wnscenod 

(X$R  rjRTLEGKAFHICSI) 

ICPTFUG:=FALSE; 

BLFLA6:=FALSE; 

IF  (BLuE^QVE  C=  1)  OR  (TIME  =  3)  THEN  ?^ES3h6£: 

GRi^FHCOE;  TEXT:=FAL3£; 

QKStT:=('a'..'9'/A'..J'/3'..'j']; 

DTL£N:=3; 

S(KSTRING(3,2,'ICPT:LETTER/'NlJMSER  OF  UNIT  TO  INTERCEPT'); 

T1:=GETC;^R(CKSET); 

IF  Tl  IN  l'9'./9'3  then  TYPE1(T!,0X1,0YI)  ELSE  rfPE2<Tl,DXI,DYD; 

CUSl:=OEeREES(DXl,OYl); 

COURSE  1:=C1JS1  i  ?l  /  139; 

SPEEDl:=SQRT(3QR(0Xl)+SQR(DYl))/DaTAT; 

W1:=S?EED13(SIN(C0URSE1); 

v'Y]:-5P£EDl]{C0S(CQyRSEl); 

0KSET:=('r./9']; 

3QXSTRIN6(3,2,'  ICPT:NlJhfKR  OF  ?-<^ElWERING  mi  (8-9)  '); 

T2:=6ETCWR(QKSE^; 

T3T2:=0RD(T2)-0RD('a')+l; 

X:=aXY[l,TGT2]/2.3; 

Y:=SXY[2,TGT23/1.?2; 

RiPEAT 
3CXSTRING(3,2,'IC?T:  D€SIR£D  TIME  TO  INTERCEPT  (8-99?)'); 
GETINTEG£R(0T,DTL£N); 

ii>ITIL(DT  >=  a)  f^D  (DT  (=  999) ; 

C-EhRECX: 

IX:=<:iX<IJDT)+X2; 

IY:=(Wl)fDT)rY2; 

DIX:=X-IX; 

DIY:=Y-IY: 

iajS:=OEGRE£S(DIX, Dr/); 

ISF0:=SQRT(SQR(0IX)tSGR(DIY))/'0T?69: 

^E23A6E2: 
END; 

BEGIN  (  bl;ne  } 

IF  ICPTFIAG  THEN  INTERCEPT; 
IF  BLFu^G  THEhJ  HEADER; 
END; 

SEGMENT  PROCEDURE  l-AFINIT; 
WR  GFu^G.GFLAGl:  'CiV^R; 
LB^L3:  3E'CF~iAR; 
3AVEP-AG:  BOOLEAN; 
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S'^CW, SOLD, ONO*, GOLD:  FIL£  OF  REAL; 
?1ISC:  FILE  GF  I.^fTEGER; 

PROCEDURE  PREFINISH; 
BEGIN 

•:KSET:=C'Y'/y','N','n']; 

GaTQXY(9,3);CRT(ERASEQS); 

WRITELN; 

i^RITELNC    MEHGRY  AVAILABLE  IN  WORDS:  ',Me¥%VAIL); 

WRITELN; 

WRITELNC    MOTIOi  f^LYSIS  PROGRj^  OPTIONS  :  '); 

>JRITELN; 

>IRITELN('    DO  YOtJ  WISH  TO  CONTINUE  'HIS  3AfiE  WTER  (Y/'N)?  ') ; 

WRITELN;WRIT£LS; 

WRITEC     ');        GrLA61:=G£TCI*»R(0KSET+[CHR(13)j); 

CRT(£RASEOS) ;  CRT(ERASEGS) : 

IF  3FLA61  IN  ['Y','y':  THEN  SAVEFLA6:=TRUE  ELSE  3A<;'EFLA6:=FAL3E; 
END;  {  PREFINISH  } 

PROCEDURE  START; 
9EGIN 

30TQXY(3,8);CST(Ew^S£0S); 

i^RITELN; 

WRITELNC    MBiORY  A»JAiLABL£  IN  tAiCRDS:  SMO-V^^IL) ; 

WRITELN; 

^^ITELNC    MOTION  fm:iSlS  PROGfirtI  OPTIONS  :  '); 

WRHELNC  '); 

WRITELNC    3    Motion  Ana! «/sis  Program') ; 

wRITEL>K'     1    Rerun  Motion  Analysis  Procraffl') ; 

WRITELNC    2    3ui!d  or  '^o6liv  Data  Base'); 

i^RITELNC    3    Ter-nmate  Prcoraffl') ; 

WRITELN; 

WRITEC     •);        GFLAG:=6ETCWR(LE'';ELa) ; 

CRT(£RA££CS) ;  i:n?T(ERAS£QS) 
END;  (  START  ) 


PROCEDURE  BAVIT; 
■m  I,J:I^fTE5ER; 
SEGIN 
RE>!RITE(3N0W,  'J<5:OLD1.DATAO ; 
FOR  J:=l  TO  MAXBLUE  30  SEGIN 
.^Or:=8XY[l,J];  PUT(^iCW); 
^a^-^:=eXY[2,J];  PUT (»«>*) ; 
3N0W":=GCUS[J];  mi^m)', 
3NGW-\=G-S?0CJ];  ?iJT'8NG"i); 
EhJD; 

aGS£(^eW,LOCK) : 
REWRITE(SCLD,  '35:0LD2.DATA') : 
FOR  J:=i  TO  rMBVJE.  DO  BEGIN 
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BaD":=0LC-BXYtl,J3;  Pi;! ( BOLD) ; 

30LD":=flLDaXY[2,Jh  ?UT(SOLD) ; 
END; 

CLOSE(EOLD,LCCK) ; 
RBiRITE((^OW,  '«5:0LD3.C*^TA'); 
FOR  J:=l  TC  i^GRW-^GE  DO  BEGIN 

i>^^:=(I0'[l,J3;  PUT(a^CW); 

iliOW*:=OXY[2,.J];  FiJT(C^l^) ; 
END; 

a.0S£((jNGW,LOCK) ; 
Rf3«ITE(0CLD,  'S5:0LD4.DATA') ; 
FOR  J:=l  TO  .^V«CRAN6£  DO  BEGIN 

OaD"  :=OLDCXY  1 1 .  J  ] ;  PUT  ( COLD) : 

GOLD"  :=QLDOXY  [  2 ,  J  ] ;  PUT  ( CaO) ; 
END; 

aOSE(QOLD,LOCX); 
?EWRITE(MI3C,  ' <«5: OLDS. DATA' ) ; 
MISC-":=TIH£;  P'JT(MISC) ; 
MISC*:=8LUEMa€;  ?IT(MIS0! 
MISC\=0RAISG£H0VE;  PUT(MISC) ; 
CLOSE(HISC,LOCK); 
END; 

3E3IN    {  l-AFINIT  ) 
CLCS£(3LL'HI:3T,LQC:0; 
aOSE(8LUi3^E,LOCX); 
CLaSE(G?^HI3T,L0CK); 
CLOSE  (OJ^GAME.  LOCK); 
CLOS£(ATIME,lCCK) ; 
LPJ£L3:=i'9','r/2','3']; 
3UITFLAG:=FAL3E; 
RRFLA6:=fALSE: 
START: 
CASE  3FLAG  OF 

'V   \  :AS£9:='RUE; 

'V  :  CAS£1:=^UE; 

'2'  :  'CAS£2:=THUE: 
Eh®;  (  ^:ASE  } 
IF  GFLAG  =  'V   THEN  BEGIN 

PREFINISH: 

IF  ^'EFLsG  'HEN  3AVIT; 

£T0PFLA6:=TRUE; 
END; 
END;  {  THAFINr  ) 

()($S+i) 

UNIT  3ETCRT;  INTRINSIC  CODE  23  [^TA  24; 

INTERFACE 

Tt'PE  CRTC.3tWiO=<ERASE0S,£RASE0L.UP.Da*^.RL3HT,.EF.LEAOIN) i 
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SETGFCmR=SET  OF  mR; 

^M    CRTINFO:      PACKED  ARRAYICSTCOtttNO]  GF  CKAR; 
PREFIXED:    ARRAYiCSTCOtm)]  OF  SOOLErtN; 
F:FILE; 

PROCEDURE  GETCRTINFO; 
PRGCEDURE  CRKC  :  CRTCOtm)) ; 
PROCEDURE  PR(N»TAT(Y;  IhfTEGLR;  S:  STRING) ; 
.=UNCTIiJN  3ETCl^R(0K3Er:  SETOFCl^R) :  CJ^R; 
PROCEDURE  GETSTRINGCvWR  3:  STRING;  l¥«LEN:  I^frE6ER); 
PROCEDURE  GETIiYTEGLR  IVAR  NUJ-,eR,L£N  :  INTEuLR) ; 

IMPLD^EKTATI'lJ 
a>iST 

BS  =  3; 
SPACE  =  32; 
CR  =  !3; 
'^AR    BUFFER:  PACKED  ARRAY [9..51 13  CF  Cf^R; 
I,5YTE:  MEGER; 
CH:  'O^R; 
30CD:  SmiEfti; 
S1:STRING[I]; 
STEhiP:  STRING! 89]; 
POSITION:  INTEGER; 
D^^RRAY:  ARRAY!  1..  10]  OF  CWR; 
READINTEGER:  INTEGER : 
DIGITS, OKSET:  SH  GF  O^R] 
'XEfJBR:  INTEGER: 
OLD:  BOOLEAN: 


FRCCEDURE  GETCRTINFO; 

(  ) 

i         READ  3YSTEM..MI3CINF0  PWO  GET  CRT  iXtHROL  i:HA(^CTER  INFO  } 

(  } 

BEGIN 

RESETiF.'sSYSTEM.MISCINFO'); 

I:=8LGCKREAD(F.3UFFSR,1); 

CLOSE (F) ; 

3YTE:=nRDf3UFFERn2]);  ^  PREFIX  II^Of^TI^  BYTE  ) 

CRTINFOtLEADIN] :=6UFPER[c2: ;   FREFIXEDiLZAOIN: :=fAL3£: 

CRTINFOIERASEOSI  :=8UFrLR[  543 ;  ^^REFIXEDIERASEOSj  :=OCO(S'rrE  DIV  3) ; 

CRTINFQIE!^SE0L3  :=8l'FFER[i53 ;  r^Er  IXEDCERASEGL3  :=!]D0(3YTE  OIU  4) ; 

CRTINFOIRIGHT]  :=8UF=LR[i63 ;   -REFIXEDlFIGHT]  :=CDD(B'fTE  DIU  2) ; 

CRTIHFOIUP] :=8UFFER[671 ;     PREFIXEDIUP! :=ODD(eYTD ; 

CRTINFOILEFT] :=BUFrERIo33 ;    PREFIXEDILS^j  :=ODD(^E  9IV  32) ; 

CRTINFOICi^l^]  :=CHR(  19) ;      FRL=:iXEDiDi3*^]  :=FhL2E; 
£N0; 

PRGCEL'URE  CRT; 
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(  } 

{         CRT  031^1^^03  ARE  :  Ei?j^SEG3,ESAS£CL,UP,i:(^,i?i3HT,L£rT.  > 

{  } 

BEGIN 

IF  PREFIXEDtC]  THEN  UNI?<^ITE(l,uTINF0[L£ADIN3,l,a,Il> ; 

UNIT14RITE(I,CRTINF0[C3,l,a,i2); 
END; 

PROCEDURE  PRS^TAT; 
BEGIN 

•30TCD<Y(9,Y)  ;i4RITE(S)  ;CRT(Ei^SEOU ; 
EN'D: 


FUNCTION  GETC:^; 

C  } 

{   GET  A  CHARACTER,  BEEP  IF  NOT  IN  OKSET,  ECHO  'IILY  IF  PRINTING   } 
(  ) 

BEGIN 
.REPEAT 
READ(KEYSCARD.CH) ; 
IF  EGLNcKTi'Ba^RD)  THEN  CH:=CHR(13); 
5200:=  CH  IN  OKSET; 
IF  ,NOT  GOOD  THEN  WRITE{CHR(7)) 
ELSE  :F  CH  IN  :'  '..'}']  THEN  WRiTE(CH); 
Mil  GOOD; 
6ETCWR:=CH; 
Bid; 


PROCEDURE  GETSTRING; 

(  ) 

(   GET  mo   ECHO  A  STRING  uP  TO  ^!AXL£N  :>i^RS  LOiG.  } 

{   IF  NULL  STRING  SNTERED,  jEFAULT  ^*^D  PRINT  FRPvIOUS  'VALUE.  ) 

BEGIN 
QKSET:=C'  '..'•}']; 

STBiP:=": 

-OR  POSITION  :=  1  TO  i^EN  30 

imRITEC-  •): 

?csrii><  :=  :; 

FOR  .s^SniCN  :=  1  TO  ,iWLEN  DO 

l«ITE(C;iR(BS)); 
POSITION  :=1; 
REPEAT 
IF  LENGTH(STE!^P)  =  i  THEN  3ii:]:=GETC^R (OKSET  +  iCHR(13)]) 
ELSE  IF  LENGTH(STE«P)=MA)(L3i  "'^EN  Si::J:=3ETCr^R([ChR(l3)  ,CHR(3)  I) 
ELSE  SIC  1]  :=6ETC;-^R(GKSET  +  iCHR(  !3)  ,CHR(S) :) ; 
IF  sun  IN  uKSET  THEN  3TE>!P;=C3^CAT(STEf'P,31) 
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aSE  IF  31[1]=CHR(3)  THEN 
BEGIN 
CRTCLEFT);  WRITEC.');  CRT ( LEFT) ; 
CEL£TE(3TEMP,L£NGTH(STEHP) ,1) ? 
END; 
UNTIL  SliU  =  CHRCS); 
IF  LENGTH(STEHP)   O  9  THEN  3:=STEHP 
ELSE  WRITE(S) ; 
END; 

FRGCEDURE  GETINTEGER; 
BEGIN 
OLD  :=  FALSE: 
0LCNBR:=N»11BR; 
DIGITS:=['9'. .'?']; 
FOR  POSIT I CN  :=  1  TO  LEN  DO 

WRITEC-'); 
FOR  ?t3SITIGN  :=  1  TO  LEN  DO 

i'iRITE(CHR(3S)); 
POSITION  :=  1; 
WHILE  POSITION  =  1  00 
BEGIN 
REAO(f<EY80ftRD,CI^RPAY[?OSIT:i<]) ; 
Ip(CmRI^Y[I]  IN  [CHfi(SPACD,C}iR(CR)])  THEN 
BEGIN 
NiJh'SR  :=  iDLDNBR; 
;^RITE(NlJfiBR) ; 
OLD  :=  TRIE; 
POSITION  :=  ?0SITIO<+!; 
END 
ELSE 

If'Xr^maU  IN  DIGITS)  THEN 
BEGIN 
WRITE(Kri'B0ARD,C:-^RRAY[POSITIC^ij) ; 
rOSITI3^:=PGSITI^  +  i; 
END 
ELSE 
WRITE(CHR(7)); 
END; 
IF  NOT  OLD  THEN 
SEGIN 

miz.  =OSITIuN<=l£N  DO 
3EGIN 
REAO(krf8CARD,a^RRAYIPOSITI0r^]) ; 
IF  (Cr^RRAYIFOSITION]   IN  DIGITS)  THEN 
BEGIN 
>(RITE(C:>i.RRAY[POSITICN])  5 
POSITIilJ  :=  POSITION  »  1; 

aSE  IF  CHARRAYIPQSITICN]  =  '::HR(3S)  THEN 
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BEGIN 

IF  FQSITIO^  >  1  TH£N 
SEGIN 
>iRITE(CHR(3S)); 
WRITEC.'); 
iHRITE(CHR(eS)); 

'>mii:m  :=  position  -  i 

END; 
IF  POSITION  <=  1  THEN  POSITION  :=  1; 

ELSE 
BEGIN 
IF  (Cf^RRAYiPOSITIC^J]  IN  [CHR(S?!iC£)  .CHRvCR)])  THDi 

FGSITIi]N:=L£N  +  1 
ELSE 
WRITE(CHR(7)) 
END;  {  beqin  ) 
END    {  ir-then-eise  ) 
BID; 

3Ef-^DINTE6£R:=«; 
FOR  POSITION:=1  TO  LEN  DO 
EEGIN 
IF  (C-^RRAYIPOSITICNJ  IN  DIGITS)  l\Bi 
^&^DI^frEGER:=i35R&iOiNT£GLR+GRD(CHJiRRAY[POSITI{^J)-0R0('9'■); 
Eh«); 
IF  OLD  THEN  NUHBR:=OLCNBR  ELSE 
NUMBS :=R&^DINTEGER; 
END; 
SEGIN 
END. 

(HSt?) 

UNIT  THESISa;  INTRINSIC  CODE  25  DATA  26; 

INTERFACE 

USES  TURTLcGRAPHICS; 

v-AR 

SHIrFIG:  =ACKED  ^RRAY':..3,1..7}  OF  BOOLEAN; 
aXY.OXY:  BACKED  ARRAYS.. 2. !..:«]  CF  REAL; 
SCALE:  ^L; 
XCTR ,  r CTR  .I^ELLE  ,HAXCR^GE ;  INTEGER ; 

PROCEDURE  Nl^'8ERC</^J:  INTEGER); 

PRiXEDURE  LE7-ER ( X ,  r ,  J :  INTEGER) : 

PROCEDURE  3QXSTRING(X,Y:  INTEGER;  3:  STRING); 

=RCCEDURE  CLSARSOX; 

=>RCCEDUR£  DOWiSCALE; 

PROCEDURE  ijPSCALE; 
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IMPL£>efrATIGN 
CONST 

YC  =  96: 

WLUE:  IhfTESER; 
N<^,XT//T:  INTEGER; 
>;AL:    CHAR; 

eX,3Y.CX.ijY.J:  INTEGER; 
L,R,3,T:  INTEGER; 

PRCCEDl'RE  Nt^fBER; 
BEGIN 

HUM  ;=.]-!; 

;<T;=X-3; 

YT:=Y-?; 

MWETO(XT.'fT); 

'.'AL:=CHR(NUfi+CRO('a')); 

^CHAR('.'AL) ; 
END; 

PROCEDURE  LETTER; 
BEGIN 

NUH:=J-!; 

XT:=X-3: 

'rr:=Y-9; 

Ma'ETQ(XT.YT); 

*.iAL:=CHR(Nli^+ORD('A')); 

^(CI^RC.'AU ; 
END; 

PROCEDURE  5QXSTRING: 
3E3IN 

FENCCL0R(NO<E)  :f^i?iETO(X.Y) ; 

..■=X-3:  R:=X+2t7?L£NbTH(3) : 

3:=Y-2:  T:=Y*!9; 

yiEHPCRT(L.R,3,T): 

FIU3CREEN(  BLACK); 

vIEi^PC'RT(3.27',8,:?l); 

=E:nCCL0R(N(3^D  ;  M0v'rO(L,3); 

PB^COLOR(WHITE) ;  W;ETQ(l,T)  ; 

MQ«;ET0(R,T)  :Ma;ET0(R,3)  ;*^;ETO(L,B) ; 

^'EHCGLCR'.NiM) ;  :iG>JET0(L+3,3+2) : 

WSTRING(S) ; 
END; 

PROCEDURE  tlEARSGX; 
BEGIN 
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PENCOLQR(NCNE) ; 

L:=e;  B'Mi  R;=5  ♦  7  J  49;  T:=12; 
VIE>IP0RT(L.R,3,T); 
FILLSCREH>l(eLAC!<) ; 
UI£WPGRT(8,27?,a,l?l); 
END; 

PROCEDURE  DGW9:alE; 
SEGIN 

SCALE :=SCAL£  /  2; 

INITT'JRTLE; 

^CaCR(NGNE) ; 

IF  m^Biui  >  9  thbn  begin 

FOR  J:=  1  TO  .'^J<BLUE  DO  SEGIN 

8X:=R0l^0( (8XY[  l.Jj-XCTR) /SCALD fXC; 

BY  :=RQliiD  ( ( ax^r  [  2 ,  J  i  -  YCTR) /SCALE)  +  YC ; 

DRAh6LCCK(3HIFFI3,2,3,3,7.3,SX.8Y,I9); 

NUiEER(3X,BY,J); 
EhiD; 
END; 

IF  >VWQRANG£  )  a  THEN  BEGIN 
FOR  J:=  1  TO  ?^CR»^eE  CO  SEGIN 

QX:=ROLND( (QXYI 1  ,J3-XCTR) /SCALD  +XC; 

m  :=ROUr^D  ( ( OXY  [  2 .  J  ]  -rCTH)  /SCALE)  t"' C ; 

DRAWBL0CK(SKI?FIG,2,3,8,7,3,0X,GY,5); 

L£TTER(CX,OY,J); 

E^;D: 
END; 

PRCCEDURE  UPSCALE: 
3E3IN 
SCALE :=SCALE  i  2; 
INITTURTLE; 
FEhiCOLCR(NOND ; 
IF  ^¥>XBLUE  )  3  'HEN  SEGIN 
FOR  .j:=  1  ^0  ^V^XBLUE  DO  SEGIN 
5:<;=R0LfJD(  (SX^/1 1 ,  Jj-<CTR)/SCALD  *XC; 
3Y:=-tG!li0i;SXY:2.J]-YC'??) /SCALD  *rC: 
:RA}€LCC;<iSHIPf^IG,2,3,3,7,3,3X,SY,:9); 
NUHeER(3X,3Y.J); 
END; 
END; 

IF  f^Ci^GE  >  3  'HEN  BEGIN 
FOR  .;:=  1  TO  ^AXC-R/^GE  'DO  3E3IN 
0X:=ROUND( (OXa  1 , J3-<CTR)/SCALD  *XC; 
GY:=«^Cl^O*  tCXYC2,J3-YCTR)/SCALD  ^YC: 
DRAWBLGC:<(3HIPFIG,2,3,3,7.3,dX.iJf,=); 
LETT£R(OX,QY.J) ; 
END: 
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END; 

END; 

BEGIN 
END. 
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